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MODE D'EMPLOI 
DU TRAITEMENT DE TEXTE 


BH LES COMMANDES CURSEUR 


Curseur vers la droite 


Déplacement du curseur d’une position vers la droite, sans 
modification du texte (les dépassements de fin de texte par 
simple déplacement du curseur sont acceptés et entérinés). 


Curseur vers la gauche 

Déplacement du curseur d’une position vers la gauche, sans 
modification du texte. 
Curseur vers le haut 

Déplacement du curseur d’une ligne vers le haut. 


Curseur vers le bas 


Déplacement du curseur d’une ligne vers le bas (l'écran de 
travail est constitué de 255 lignes dont 22 peuvent être affi- 
chées simultanément). 


SHIFT + curseur vers la droite 


Renvoi du curseur à la colonne 80 de la ligne courante, ou 
aprèsle dernier caractère de cettelignes'ils’agit dela dernière 
du texte. Si le curseur s'y trouve déjà, un coup de cloche est 
envoyé et la commande reste sans effet. 


SHIFT + curseur vers la gauche 


Renvoi du curseur à la colonne 1 de la ligne courante. Si le 
curseur s’y trouve déjà, un coup de cloche est envoyé et la 
commande reste sans effet. 


SHIFT + curseür vers le haut 


Affichage de la première page de l'écran de travail, et posi- 
tionnement du curseur au début de cette page. 


SHIFT + curseur vers le bas 
Affichage de la dernière page de l'écran de travail, et posi- 
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tionnement du curseur à la fin du texte. Notons que cette com- 
mande ne provoque pas forcément de remplissage de l'écran: 
une page représentant 1760 caractères (22 lignes de 80 
colonnes), si par exemple 1 900 caractères ont été écrits, l'ap- 
pel de cette commandene provoquera l'affichage que des 140 
derniers et le reste de l'écran restera vierge. 


M LES CARACTÈRES 


Les caractères accentués peuvent être obtenus grâce au 
pavé numérique, de la manière suivante : 











Touche “.” : Î 
Touche “O0”: Ô 
Touche “1”: à 
Touche “2”: ï 
Touche “3”: Û 
Touche “4”: à | 
Touche “5”: 6 
Touche “6”: Ü 
Touche. “7”: ê 
Touche “8”: e 
Touche “9”: ê | 





Les crochets “[” et “]”, les accolades “{” et “}” et l’arobas 
“ @ ” sont accessibles, y compris à l'impression. 


SHIFT + barre d’espacement 


Permet d'écrire un blanc forcé, symbolisé par un petit signe 
en forme de vague. A l'affichage ou à l'impression, ces blancs 
forcés sont traités comme des caractères à part entière,etne 
doivent en aucun cas être considérés comme des séparateurs 
de mots. Ils peuvent entre autres être utiles pour réserver des 
espaces blancs dans un texte. 





Sont considérés comme des séparateurs de mots les espaces inutiles 
(symbolisés par un point), les blancs, les codes de contrôle, ainsi bien sûr 
que les codes de fin de paragraphe. 
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M LE MODE INSERTION 


Le mode insertion est obtenu grâce à la touche COPY, et sa 
suppression grâce à une seconde frappe de cette même 
touche. La mise en service du mode insertion est signalée par 
l'affichage de l’abréviation INS dans le petit carré de la bande 
inférieure de l'écran. 

Si, au moment de l'insertion, le curseur pointe un espace inu- 
tile, le caractère est affiché normalement ; dans tousles autres 
cas, le reste du texte est décalé, de manière que le caractère 
puisse être affiché dans l’espace ainsilibéré. Le code de fin de 
paragraphe est obligatoirement inséré (même si le mode 
insertion n’est pas en service), s’il est appelé alors que le cur- 
seur ne se trouve pas en fin de texte. 

Attention, toute insertion dans le texte alors que la RAM de 
rangement est pleine aura pour effet de “ chasser” le dernier 
caractère. 


MH LES TOUCHES “ CLR”, “ DEL ” et “ SHIFT + CLR” 


CLR 


Efface le caractère pointé par le curseur, y compris s’il s’agit 
d'un espace inutile, et décale le reste du texte pour comblerle 
vide. 


DEL 


Efface le caractère situé avant le curseur, sans décaler le 
reste du texte. Sile curseur pointe à ce moment-là sur la fin du 
texte, le pointeur de fin de texte est décrémenté de 1. 


SHIFT + CLR 


Cette commande a pour effet de supprimer toute la ligne sur 
laquelle se trouve le curseur, le reste du texte étant alors 
décalé de 80 pour combler l’espace vacant. Cette commande 
n’est pas acceptée si le curseur pointe sur la fin du texte. 
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EH LES TOUCHES “ENTER” et “SHIFT + ENTER” 


SHIFT + ENTER 


Cette commande inscrit le code de fin de paragraphe ou de 
phrase (symbolisé par un triangle noir), et envoie le curseur au 
début de la ligne suivante. On peut naturellement utiliser ce 
code seul au début d’une ligne pour indiquer qu'elle doit sim- 
plement être sautée. ll faut également noter qu’à l’intérieur du 
texte, ce code de fin de paragrapheestobligatoirement inséré, 
même si le mode insertion n’est pas en service. 


ENTER 


Cette commande envoie le curseur au début de la ligne sui- 
vante. Elle n’a aucune autre fonction et ne doit surtout pas être 
confondue avec la précédente (si par exemple vous tapez un 
mot, puis ENTER, puis un autre mot, le programme considérera 
qu’à l'affichage ou à l'impression, ces deux mots doivent être 
écrits l’un à la suite de l’autre). 


H LES CODES DE CONTRÔLE 


Les codes de contrôle permettent de modifier à n'importe 
quel moment le format de sortie du texte, ou de solliciter les 
différentes options de l'imprimante. 

Un code de contrôle doit toujours être composé de 5 carac- 
tères dont le premier, obtenu grâce à CTRL + Z (qui provoque 
l'affichage d'un C en vidéo inverse), n'est qu'un simple signal. 
Voici les 15 codes de contrôle possibles. 


CTRL +Z +01xx 


Saut de xx lignes. Ce code est évidemment intéressant dans 
la mesure où il évite d’avoir à utiliser des codes de fin de para- 
graphe lorsque l'on souhaite sauter plusieurslignes, et permet 
ainsi de gagner de la place en mémoire. 

CTRL + Z + 02xx 


Fixe la marge gauche à la colonne xx. 


= 193 


CTRL +Z +03xx 
Fixe la marge droite à la colonne XX. 





Chaque fois qu'une marge est fixée par un code de contrôle le programme 
vérifie que le nombre de caractères par ligne qui en découle reste supérieur ou 
égal à 15. Si ce n’est pas le cas, le code est ignoré. 

Dans certains cas, cela implique que les poses de marge doivent être faites 
dans un ordre particulier :imaginons par exemple que vous ayez, à un moment 
du texte, une marge gauche à 40, une marge droite à 60, et que vous vouliez 
passer à une marge gauche de 5 et une marge droite de 30. Il est bien évident 
que si vous commencez par fixer la marge droite, le programme la refusera 
puisqu'il va comparer cette nouvelle marge avec l'ancienne gauche. Dans ce 
cas précis, il faudra donc d'abord fixer la nouvelle marge gauche, et seulement 
ensuite la nouvelle marge droite.ll faut également signaler que le nombre maxi- 
mal de caractères par ligne est 80. 





Tousles codes suivants sont réservés à l'imprimante, et igno- 
rés lors de la sortie écran. 


CTRL +Z +1000 Sélectionne l'option NLQ. 

CTRL +2 +1100 Annule l'option NLQ. 

CTRL+Z+1200 Sélectionne l'option italique. 

CTRL +Z+1300 Annule l'optionitalique. 
CTRL+Z+1400 Sélectionne l'option caractères gras. 
CTRL+Z+1500 Annule l'option caractères gras. 
CTRL+Z+1600 Sélectionne l'option soulignement 
CTRL+Z+1700 Annule l'option soulignement. 

CTRL +Z + 1800 Sélectionne l'option caractères condensés. 
CTRL +Z+1900 Annule l'option caractères condensés. 
CTRL+Z+1:00 Sélectionne l'option double largeur. 
CTRL+Z+1;00 Annule l'option double largeur. 





Les caractères double largeur ou condensés ne sont pas pris en considé- 
ration lors des calculs relatifs à la justification dutexte.Ces caractères parti- 
culiers ne doivent donc être utilisés qu'à bon escient. Cela ne devrait plus 
vous poser de problème lorsque vous aurez un peude pratique. Dans unpre- 
mier temps, n'hésitez pas à faire des expériences en essayant différents cas 
de figure. 
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Les poses de marge rencontrées lors de la sortie d'une ligne ne sont enté- 
rinées qu'après que cette ligne a été sortie. Si l’on souhaite par exemple que 
les marges soient modifiées à partir d’une ligne L, il est nécessaire que les 
codes de contrôle correspondants soient situés à l'intérieur de la ligne L-1. 
Là encore, un peu de pratique sera sans doute nécessaire. 


Le processus est le même pour les sauts de ligne, qui ne sont exécutés 
qu'après la sortie de la ligne oùils ont été rencontrés, tandis que les codes 
de contrôle imprimante le sont au fur et à mesure de l'impression. 


Tout cela est bien sûr parfaitement logique, maisil faut savoir qu’une utili- 
sation optimale du traitement de texte ne sera possible qu'avec une bonne 
maîtrise des codes de contrôle, dont l'incidence dépend parfois de l'endroit 
oùils sont placés dans le texte. 





B LE MODE MENU 


Le mode MENU s'obtient grâce à la petite touche ENTER du 
pavé numérique. Les différentes options s'affichent alors dans 
la bande inférieure de l'écran. (Il est toujours possible, à n'im- 
porte quel moment, de revenir à l'écran de travail en appuyant 
une deuxième fois sur la petite touche ENTER ou en tapant un 
chiffre illégal en réponse à une interrogation.) 


Les quatre choix possibles de ce menu principal sont les sui- 
vants (chacun d’entre eux branchant sur des sous-menus et 
tout choix illégal provoquant un retour immédiat à l'écran de 
travail). 


LES SUPPRESSIONS 


e Une suppression totale dutexte provoque une réinitialisation 
de l'écran et de la mémoire (cela ale même effet que sile pro- 
gramme venait d’être lancé). Il est également possible de 
n'effacer qu'une partie du texte, cette partie étant alors défi- 
nie par rapport à la position ducurseuraumomentoüaeulieu 
l'appel du mode MENU. 


e Une suppression “ À PARTIR DU CURSEUR ‘efface le carac- 
tère pointé par ce dernier ainsi que tous ceux qui suivent. 


e Une suppression “ JUSQU'AU CURSEUR” efface toutes les 
lignes de l'écran de travail situées avant celle où se trouve le 
curseur, l'affichage de l'écran étant naturellement modifiéen 
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conséquence. Attention : avant une suppression“ JUSQU'AU 
CURSEUR”, celui-ci doit être positionné en colonne 1.Sitel 
n'est pas le cas, un message d'erreur s'affiche et il faut alors 
taper la petite touche ENTER pour retourner à l'écran de tra- 
vail. 


LA DÉFINITION DU FORMAT, 
CONSTITUÉ DE CINQ PARAMÈTRES 


La marge gauche et la marge droite (ces poses de marges 
n'empêchant évidemment pas que ces dernières soient 
modifiées en cours de texte grâce aux codes de contrôle). 


e La marge haute, quireprésente le nombre delignes à sauter à 
chaque début de page lors des sorties. 


e L'interligne entre chaqueligne d’écriture.Sice paramètre est 
à 1, les sorties se font normalement ; s’il est à 2,une ligne est 
sautée entre chaque ligne d'écriture. 


.<Lenombre delignes par page (maximum 62).Lors dela sortie 
écran, la fin d’une page est signalée par un trait en pointillé. 
Lors de la sortie imprimante, la feuille est poussée hors du 
chariot quand le nombre de lignes spécifié est atteint, et une 
nouvelle feuille est attendue. 


Chaque fois qu’un format est défini, le programme propose 
sa sauvegarde. Il faut alors lui donner un nom et les cinq para- 
mètres sont stockés sous forme binaire. 

Un format sauvegardé peut être chargé à n'importe quel 
moment grâce à l'option CHARGEMENT. 





Lorsqu'un texte est sauvegardé, les cinq paramètres du format sont sau- 
vegardés en même temps, et dans le même fichier. L'inverse est naturelle- 
ment vrai lors du chargement d’un texte. 


Le format par défaut est le suivant : 


Marge gauche = 2 

Marge droite = 78 

Marge haute = 1 

Interligne = 1 

Nombre de lignes par page = 62 
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LES SORTIES ET LES ENTRÉES 


La sortie écran 


Sicette option est choisie, il est nécessaire de préciser à par- 
tir de quelle page doit se faire l'affichage (attention,ilne s’agit 
pas cette fois des pages de l'écran de travail, mais bien des 
pages sous leur forme définitive, donc justifiées). La sortie 
écran étant en principe beaucoup sollicitée (généralement 
pour vérifier la présentation), la possibilité d'affichage à partir 
d'une page particulière évite d’avoir à faire défiler toutletexte, 
alors que seule, par exemple, la dixième page doit être vérifiée. 

Lorsque le numéro de page a été défini, l'écran devient blanc, 
et il faut appuyer sur la barre d'espacement pour que le texte 
commence à défiler (tout relâchement de la barre fige l'écran 
en l'état). 

Une fois la fin du texte atteinte, un message demande d'’ap- 
puyer sur la petite touche ENTER, ce qui provoquera un retour 
à l'écran de travail (ce dernier étant restitué dansle mêmeétat 
qu’au moment de l’appel d'affichage). 





Si le numéro de page spécifié dépasse le nombre de pages du texte, le 
message évoqué ci-dessus s’affichera immédiatement. 


Si le numéro de page spécifié est important (affichage à partir de la 
dixième page, par exemple), il peut s'écouler un certain temps entre le 
moment où l’on presse la barre d'espacement et celui où commence l'affi- 
chage (le programme étant de toute façon obligé d'effectuer les calculs de 
justification à partir de la première page). 


Il est possible d'arrêter l'affichage pour retourner à l'écran de travail à 
n'importe quel moment. Il suffit pour cela d'appuyer sur la petite touche 
ENTER. 





La sortie imprimante 


Le principe est le même que pourla sortie écran, seule l’inter- 
ruption d'impression (petite touche ENTER) diffère quelque 
peu. Il peut être nécessaire, en effet, de maintenir appuyée 
cette touche quelquesinstants avant que n’apparaissele mes- 
sage d'interruption. D'autre part, l'imprimante continuera de 
travailler, même après le retour à l'écran de travail, jusqu'à ce 
que son buffer soit vide (sauf naturellement si vous l'éteignez). 


re 





Si un mot trop long pour entrer dans les marges spécifiées est rencontré, 
l'affichage ou l'impression s'arrête immédiatement et un message d'erreur 
s'affiche, toute justification étant alors impossible. 


Les imprimantes sont parfois des machines capricieuses. La prudence 
exige donc une sauvegarde systématique du texte avant toute impression. 


Sil'imprimante n'est pas ON LINE, alors que l'impression est demandée, le 
programme bouclera jusqu'à ce qu'il y soit remédié. 








Sauvegarde d’un texte 


Cette option permet la sauvegarde du texte en mémoire 
(ainsi que du format en cours), sousla forme d’un dossier ASCII. 
Un nom doit être fourni, composé de 8 caractères au maxi- 
mum. Lorsque la sauvegarde est terminée, la main estrendue à 
l'écran de travail. 


Chargement d’un texte 


Le texte (appelé par son nom) est chargé en RAM, après quoi 
sa première page est affichée tandis que le curseur est posi- 
tionné en ligne 1, colonne 1 (il est naturellement possible de 
sauter immédiatement en fin de texte grâce à SHIFT + CUR- 
SEUR BAS). 





Une demande de chargement ou de sauvegarde alors qu'iln'y a pas de dis- 
quette dans le lecteur provoque un message d'erreur et un arrêt du pro- 
gramme. Cela peut être particulièrement gênant sile texte sur lequel on tra- 
vaille n'a pas été sauvegardé. Il faut alors, dans ce cas, utiliser la procédure 
de secours présentée plus loin. 





LES UTILITAIRES 


Le retour au BASIC 


Cette commande provoque un “CALL 0”, et réinitialise la 
machine. Pas question, naturellement, de récupérer quoi que 
ce soit ensuite. A utiliser, donc, avec prudence... 


Voir le contenu d’une disquette 


Cette commande affiche le contenu de la disquette, le con- 
tenu initial de l'écran de travail étant restitué lorsque l'on 
presse une touche. 


40 = 


H DIVERS 


e Lors delasaisie dutexte surécrandetravail,le programmene 
se préoccupe en rien des coupures de mot qui peuvent se 
produire en fin de ligne. Il va de soi que ces coupures dispa- 
raissent à la justification. 

Vous pouvez donc frapper votre texte sans discontinuer et 
sans vous faire de souci, même si des mots se retrouvent 
écrits “à cheval” sur deux lignes. 


e La capacité maximale de la RAM de stockage du texte est de 
20 400 caractères, y compris les espaces inutiles. Cela cor- 
respond bien sûr aux 255 lignes de 80 colonnes chacune de 
l'écran de travail (tout dépassement de la ligne 255 en écran 
de travail est par conséquent rigoureusement impossible). 

À titre indicatif, cette capacité mémoire représente en 
moyenne 5 à 10 pages justifiées, de 62 lignes chacune (ce 
chiffre étant susceptible de varier fortement en fonction du 
format, des sauts de ligne, etc.). 


e En cas d'imprévu, comme par exemple une interruption acci- 
dentelle du programme (réponse erronée lors d'une saisie du 
menu, pas de disquette dans le lecteur lors d'un chargement 
ou d’une sauvegarde, etc.), le texte éventuellement en 
mémoire peut être récupéré en faisant un RUN 1990 (voir lis- 
ting BASIC). L'utilisateur doit alors indiquer le nom du texte, 
qui est sauvegardé normalement ; il faut ensuite réinitialiser 
la machine,relancerle programme etrechargerletextesil'on 
souhaite continuer à travailler dessus (la réinitialisation est 
nécessaire pour éviter tout problème ultérieur). 








Si vous vous rendez compte, en essayant de taper l'instruction évoquée 
précédemment, que rien ne s'affiche sur l'écran ou queleslettres disparais- 
sent immédiatement, c'est que vous jouez vraiment de malheur, et que l'in- 
terruption accidentelle a eu iieu au mauvais moment. Rassurez-vous, rien 
n'est perdu pour autant puisqu'il vous suffira de taper (à l’aveuglette si 
nécessaire) “ WINDOW #0,1,8,1,25” + retour chariot, pour que les choses 
se rétablissent. 
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EH PROCÉDURE DE PREMIÈRE UTILISATION 


Avant de pouvoir utiliser le programme, il est nécessaire de 
créer le fichier contenant la partie assembleur. Pour ce faire, il 
faut donc dans un premiertemps écrire le programme de char- 
gement correspondant et le lancer; le fichier ASSEMBLE sera 
alors rangé sur cassette ou disquette (pour les 664, 6128 et 
464 sans lecteur de disquette, deux fichiers seront créés —se 
reporter au chapitre traitant de cesujet).llfaut ensuite écrirele 
programme BASIC de gestion du traitement de texte (atten- 
tion aux erreurs), et le sauvegarder en lui donnant unnom, cela 
va de soi. Il est fortement conseillé d'effectuer cette sauve- 
garde sur la même disquette que la précédente. 

L'utilisation du programme est dès lors extrêmement 
simple : il suffit d'allumer la machine et de faire un RUN “nom 
du programme ”. 
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LE PROGRAMME ASSEMBLEUR 


Nous avons essayé d’annoter de la manière la plus précise 
possible le listing assembleur du programme, et une lecture 
attentive devrait vous permettre d'en comprendre la logique 
sans trop de mal. 

llest bien certain, néanmoins (et ceux quis’y sont déjà essayé 
s'en sont certainement rendu compte), qu’expliquer un pro- 
gramme important dans ses moindres détails représente un 
exercice extrêmement difficile, pour ne pas dire impossible, 
tantilest vrai que la démarche informatique n’est qu’un perpé- 
tuel aller et retour entre une vision synthétique du problème à 
résoudre et une décomposition analytique en une multitude 
de sous-problèmes. 

Leslecteurs désireux de comprendre ce programme, sans se 
contenter de l'utiliser, devront donc faire leur part de travail, 
mais nous sommes tout à fait persuadés qu'ils en tireront un 
immense profit, sous réserve, cela va de soi, qu'ils soient bien 
familiarisés avec le CPC et possèdent les connaissances de 
base de l’assembleur.Précisons enfin qu'ànotre avis, ilest émi- 
nemment souhaitable d'utiliser un certain tempsle traitement 
de texte en tant que tel, pour bien s'y habituer, avant de s’atta- 
quer à l'étude du programme proprement dit. 

Les informations présentées dans ce chapitre sont complé- 
mentaires de celles du listing assembleur et devraient consi- 
dérablement vousfaciliter latâche (le rôle de chacun des sous- 
programmes, en particulier, y est décrit d’une manière for- 
melle, ainsi que l'état des registres en entrée et en sortie). 
N'hésitez pas, donc, à vous y référer sans cesse. 


—99— 


SONG ERUAH 


#**x INITIALISATION +** 


SE 4 
GET77 
8E9A 
8E9C 
SE SD 
SEE 
0E9F 


BERG 
BEEA 
BEEC 
SEEF 
SEC 
SECT 
SEC6 


219834 
21805? 
S6FF 


Len Lac 
LR 


QE 

78 

SR 
206 
21983A 
D130C0 
11F006 
CDC194 
CDCA9S 


et uns des 


CDEDEE 
C9 


LD HL,5498 
LD EC,52680 
LD CHL) ,FF 
INC HL 

DEC EC 

LD A,H 

OR C 

JRNZ SE9A 
LD HL,7498 
LD EC,C050 
LD DE,06EQ 
CALL 9401 
CALL 95CA 
LD A,2F 

LD E,00 
CALL BE2D 
LD A,17 

LD E,01 
CALL EB?D 
LD A,10@ 

LD B,02 
CALL BE2D 
RET 


+ 


FF EN MEMOIRE DE 1$000 À 56120 


3* AFFICHAGE ECKAN 

‘adresse ecran debut ligne % 
snombre caracteres liqne 2? a 25 
safficher DE caracteres 
afficher curseur 

:* REDEFINITION DES TOUCHES 


:0 pour SHIFT + espace 
:1 pour SHIFT + ENTER 


:2 pour SHIFT + CLR 


24 


AS) 


36 
59 
40 
41 
42 
43 
44 
45 
46 


48 


#x SAISIE CLAVIER #+% 


BECC 
8ECF 
S8ED 1 
SEDS 
8ED6 
8ED8 
8EDA 
8EDC 
8EDE 
8EEQ 
SEE 
8EES 
8EE7 
GET 
GEEC 
GÈÉE 
EF 
SEFS 
8EFé 
8EFS 
8EFA 
8EFC 
SEFF 
8Fai 
8FO: 


CDIiREE 
SOFE 
FE7F 
CARF91 
FE80 
5809 
FES8KH 
S00S 
C674 
CE5692 
FE20Q 
5805 
FE7F 
DAS692 
FEU1 
CAEF9S 
FEQD 
CADESS 
FEFQ 
3805 
FEFC 
DASASF 
FEUQ 
2005 
SEFS 


CALL EBIR 
JRNC ECC 
CF 7F 

JF Z,91EF 
CF 80 

JRC SEEZ 
CF 8E 
JRNC SEES 
ADD A,74 
JF 9256 
CF 20 

JRC 8EEC 
CP 7F 

JF C,92%6 
CF Qi 

JP Z,93EF 
CF @D 

JF Z,9SDE 
CF FQ 

JRC SEFF 
CP FC 

JP C,8F5A 
CF GG 
JRNZ 8F08 
LD A,F 


* DEL 7 


5 *X CARACTERE REDEFINI 


sOUi, 


az ‘22 “n2 


OUI 


alors + 


116 


*# CARACTERE NORMAL 


s#: SMIPT + ENTER 7? 


OIE 
s& ENTER 
oui 
:# CURSEUR 


# OU 


(240-251) 


sx ESFACE FORCE ? 


« 
“ 


# OL 


alors code 24% 


(32-126) 


nl 


(128-156) 


D? 


ni 


4 gras C33:69% JF 9256 : 

Tr 8F08 FEIA CF 1A :# CODE DE CONTROLE 7? 

a À gFuA 200$ JANZ SFLI : 

52 gFOC SEFI LD A,FI ‘oui alors code «41 

SE QFOE C35692 JF 9256 : 

54 gFii FEEO CF EQ PROCORT 7 

se 8F1iz CASD9I JF. LevLeu OU 

Dé gFi6 FEiQ CF 10 A CCR? 

à 8Fi18 CAGE UF Zi9S16 OU 

DE gFik FEUX CF Q 1%. SÉNIET CLR 7 

Le gFiD CABI9S A PA PT “OU 

60 8F20Q FESK CP SE :* MODE MENU 

bi 8gF=2 C8 RE T. 2 soul, alors retour Basic 

bE gFez C3SCCSE JF 8ECC 1 *% RIEN, ALOKS INTERROGATION CLAVIER 
xx BRANCHEMENT CURSEUR %% 

bE 8F5A FEFS CFUFS :# CURSEUR DROITE 7? 

&4 8Fic CA798F JF 2,8F79 “OU 

65 8FSF FEFO CF FQ 5% CURSEUR HAUT 

66 gF4i CA8D90 JF 2,908D OU 

67 gF44 FEF2£ CF F2 :* CURSEUR GAUCHE 7? 

66 8F46 CA4190 JP Z,9041 oui 

69 8F49 FEFi CPP :* CURSEUR EAS 

70 8F48 CADABF JF Z,8FDA OU i 

71 8F4E FEF4 CF F4 5% SHIFT + CURSEUR HAUT 


8F50 
8FSS 
8FSS 
8FS58 
8FSA 
8F SD 
Cor 
8F6: 


CAG4YE 
FEFS 
CAIÏH9I 
FEF6 
CAESS1 
FEF7 
CAER9O 
CSCCSE 


#% CURSEUR DROITE %%* 


er77 
8F7A 
8F7D 
8F60 
8F8z 
8F85 
8F86 
SFA 
8F68C 
SFr 
8F9% 
8Fr94 
8F97 
8F9A 
GFYn0 


AF 
SEGOSA 
CD2995 
2827 
CDED9S 
CDAISS 
2010 
SEQ 1 
S2GQSA 
CD9R9S 
2006 
CDD195S 
CD2290 
CDÉZSF 
CDCA9S 


JF Z,9204 sOoUi 

CP F5 :* SHIFT + CURSEUR BAS 7? 
JP Z,911E sOUi 

CF-F6 1% SHIFT + CURSEUR GAUCHE 7? 
JP 7,91E8 OUI 

CPFF7 s*X SHIFT + CURSEUR DROIT ”? 
UP Z,90EE OU 

JP 8ECC :*X RIEN, ALORS INTERROGATION CLAVIER 
XOK À : 

LD (5480) ,A 3placard 14976 a 0 

CALL 9$S29 sCUrSeUr memoiresmanxi 

JRZ 8FA9 oui 

CALL 9SKHD *afficher caractere 

CALL 9SAI scolonne=80Q 7? 

JRNZ 8FS%A non 

LD A,a1 “oui, alors 1 dans placard 
LD (5480) ,A : 

CALL 9S9E sligne ecran=25? 

JKNZ 8FSA non 

CALL 9SDI soui alors scrolling haut 
CALL Q9O£X set afficher nlle ligne 2S 
CALL SFE2 «modifier variables 

CALL SCA safficher curseur 


14976 


95 
9é 
97 
98 
to 
100 


1ai 
102 
105 
14 
105 
106 
107 
108 
10% 
110 
113 
112 
1135 
114 
115 
116 
117 
118 
LT 


&FAG 
BFAS 
8FA6 
8FAS 
BFAC 
8FAF 


SAGQSA 
CDFC9S 
CSCCSE 
CDBD9S 
CDCAYS 
C54594 


LD À, (3A80) 
CALL 95FC 
JP GECC 
CALL 9SED 
CALL 95CA 
JF 9447 


#%X SOUS-FROGRAMME 1 %+% 


SFR 
SFEHE 
8FEH6 
GFEH6 
SFEHA 
8FHD 
SFEEF 
8FcC2 
grCS5 
8FC8 
SBFCA 
SFCE 
8FCC 
8FCD 
8FCF 
8FD2 
8FD4 
8FDS 
8FDé 


ES 
CD5495 
2005 
SEQ1 
CD6F95 
TEQi 
CD4195 
2186%A 
CDA195 
200% 
34 

Ei 

co 
F6@1 
CD9EH95 
2802 
2E 

34 

2E 


FUSH HL 
CALL 9534 
JANZ GFED 
LD A,01 
CALL 956F 
LD A,@1 
CALL 9541 
LD HL,3A86 
CALL 95Ai 
JRZ 8FCD 
INC CHL) 
FOF HL 

RET 

LD (HL),@i1 
CALL 9598 
JRZ 8FD6 
DEC HL 

INC (HL) 
DEC HL 


L 11 


afficher colonne et ligne theorique 
s* VERS SAISIE CLAVIER 

*afficher caractere 

safficher curseur 

scoup de cloche 


spreserver HL 

icurseur memoiresfin de texte 7 
non 
OU, alors fin de texte+i 
5 


scurseur memoire+i 


sHL pointe sur plerd colonne 

sicolonne =80 7 

SOU 

snon, alors colonne+i 

srecuperer HL 

scolonne=i 

ligne ecran=25 7 

soui, alors uniquement ligne theorique+i 
:HL pointe sur plcrd ligne theorique 
sligne theorique+i 


sHL pointe plerd ligne ecran ou theorique 


120 8FD7 54 INC (CHL) ligne ecran ou theorique +1 
12 8FD8 El FOF HL srecuperer HL 
22 8FD9 C9 RET : 


due dun 


#x CURSEUR HAS *+% 


25 8FDA CD8F9S CALL 958F ligne theorique=:255 7? 

12 8FDD CA4S594 JF Z,9445 oui, alors coup de cloche 

125 8FEQ CDBD9S CALL 9SKHD safficher caractere 

126 gFEz CD9K9S CALL 9S5SE sligne ecranszis ? 

127 8FEé 2006 JANZ SFEE non 

12 8FE8 CDDI9S CALL 9SD1 soui, alors scrolling haut... 

1e gFEB CD2290 CALL 9022 5...et afficher nouvelle ligne 23 
1:50 gFEE  CDFC8F CALL 8FFC smodifier variables 

151 gFFi  CDCAYS CALL 9SCA safficher curseur 

S2 8FF4 SEDZ LD A,Q% spreparer À pour sp 356 

LS 8FFé CDFC9S CALL 95FC :8p Sétafficher nlle ligne et nlle colonne 
154 8FF9 CICCSE JF 8ECC :*X VERS INTERROGATION CLAVIER 


#*x SOUS-FROGRAMME 2 %% 


135 GFFC CDS49S CALL 95354 sfin de texte=curseur memoire 7 
13 8FFF  3ES0 LD À,50 : 
157 9001 CD4195 CALL 9541 scurseur memoire+80 


138 9004 280 JKZ 9QIii “oui, fin de texte=scurseur memoire 


159 
140 
141 
142 
145 
144 
145 
146 
147 
148 
149 
150 


a pe pa a pe Hi be He be ba 
0 O- CA CN ON CN CN CA CA CN 
OLD NRA 


162 


9006 
9809 
900E 
900F 
gOii 

9015 
9016 
9019 
98icC 
SQIE 
9QiF 
90:0 
9821 


9Q22 
9025 
9027 
9029 
982c 
902E 
9832 
9055 
9056 
9059 
9853C 


CD549S CALL 95354 snon, alors f,.d,.txt.+680 + cursr,. memoire 
S00KR JRNC 9016 non 
EDSSSASA LD (CSASA) ,DE soui, alors f.d,.txt,zcursr, memoire 
1805 JR 9016 : 
SES50 LD A,50 : 
CD6F9S CALL 956F sfin de texte+60 
Z2184SA LD HL,:5:A484 sHL pointe sur ligne ecran 
CD9R9S CALL 95S9E ligne ecrans25 7? 
z801 JKZ 9Q1F soui, alors seulement ligne theorique+i 
T4 INC CHL) Sinon, egalement ligne ecran 
25 INC HL : 
34 INC CHL) : 
69 RET : 
#+x SOUS-FROGRAMME Z #3 
AF XOR À senlever carry 
EDSBSGSA LD DE, (3A86) s;colonne dans E 
1600 LD D,00 u 
215100 LD HL,0051 :81 dans HL 
EDS2 SBC HL,DE :81-colonne dans HL 
EDSBS88SA LD DE, (3A88) ;curseur memoire dans DE 
19 ADD HL,DE scurseur memoire+8i-colonne dans HL 
115000 LD DE,0050 :680 dans DE 
Q1EQCé LD EHC,C6EO sadrsse ecran debut ligne 235 dans HL 
CDC194 CALL 94Ci safficher DE caracteres 
C9 RET ; 


7 
$ 


174 


181 


187 
183 


#**x CURSEUR GAUCHE +%+% 


9Q41 
9042 
9045 
9048 
9Q4R 
9Q4E. 
3051 
POSE 
9056 
9059 
QC 
JQSF 
906 
9064 
9067 
9066 
9060 
O6 
9Q72 


AF 
Z2807A 
CDIF9S 
CA4T9A4 
CDHD95 
CDA795S 
280F 
CD7490 
CDCA9S 
FSABQOZA 
CDFC9S 
CSCCHE 
SEQI 
32805%A 
CD9595 
20E7 
CDDF95S 
CDC790 
18DF 


XOK À 


LD (3480) ,A 


CALL 951F 
JF Z,944% 
CALL 9SED 
CALL 95A7 
JRZ 9067 

CALL 9074 
CALL 95CA 


LD A, (3A80) 


CALL 9SFC 
JF 8ECC 
LD A,@1 


LD (3480) ,A 


CALL 9595 
JRNZ 9035 
CALL 9SDF 
CALL 9007 
JR 9QSS 


#x GOUS-FROGRKAMME 4 %% 


9074 
9076 


SEQI 
CDS0YS 


LD A,@1 
CALL 9550 


:0 dans placard 14976 
curseur memoire=mini 
soui, vers coup de cloche 

safficher caractere (h1) 

scolonne=i 7? 

sOUi 

s:modifier variables 

afficher curseur 

sA pret pour sp 56 

:5p JS6: afficher nlle ligne et nlle colonne 
:# VERS INTERRKOGATION CLAVIER 


ro 


\i dans placard 14976 
«ligne ecranzz 7? 

non 

‘oui, alors scrolling bas 
“afficher nouvelle ligne 2 


# 
* 


curseur memoire-—1 


184 
185 
186 
187 
186 
189 
190 
191 
19% 
A 
194 


193 
176 
197 
198 
179 
200 
201 
202 
205 
204 
205 
206 
207 


9079 
9070 
907F 
9@81 
908: 
9086 
9088 
9089 
908A 
908 
Q8C 


#%x CURSEUR 


9@8D 
9090 
9092 
9095 
9098 
909A 
9Q9D 
70A0Q 
9QAZ 
90AS 
90A8 
9QAE 
9QAE 


CDA795  CALL 9547 
21860%A LD HL,3:486 
200A JRNZ 908E 
3650 LD (HL).50 
CD9595  CALL 9595 
2807 JRZ 9084 
2E DEC HL 
35 DEC (HL) 
PE DEC HL 
35 DEC (HL) 
C9 RET 

HAUT *%# 
SABSTA LD À, (3A85) 
FEQi CF @i 
CA4594 JF Z,9443 
CDBD9S  CALL 9SED 
TE? LD A,02 
F2805A LD (5480),4A 
CD9595  CALL 9595 
2006 JRNZ 90A8 
CDDF9S  CALL 95DF 
CDC79Q  CALL 9@C7 
CDE790  CALL 90R7 
CDCA9S  CALL 9S5CA 
TABO3A LD A, (3A80) 


scolonnezl 7? 

sHL pointe sur colonne 

scolonne «% 1 

soul, colonnez=l alors colonne=80 

sligne ecrans2 ? 

oui, alors simplement ligne theorique-i 
sinon, ligne theorique et ligne ecran-i 


LI 
* 
“ 
0) 
4 


; 

sligne theoriquezil 7? 
oui, vers coup de cloche 
*afficher caractere (HL) 


52 dans placard 14976 
sligne ecran=2 7? 

sinon 

soui, alors scrolling bas 

set afficher nouvelle ligne 2 
smodifier variables 

safficher curseur 

A pret pour sp 56 


208 
209 


210 
AL 
212 
2135 
214 
215 
216 
e17 
218 


217 
mars 
den hs 


Len 

Fra | 
Lee Le Lan) 
A du 
PAPA 
ae du tt 
Lun Len) 

274 
Con Lan + 
au du vd 


226 


9QR1 


CDFC9S 
9OR4  CSCCSE 


CALL 9SFC 
JF BECC 


#x SOUS-FROGRAMME 5 %% 


90R7 
909 
9GRC 
SORF 
9aca 
9QC:3 
90C4 
9aCS 
9acé6 


3ES0Q 
CDS5Q95 
2185<A 
«t 
CD9595S 
C8 

2E 

S9 


C9 


LD A,50 
CALL 9550 
LD HL,3A85 
DEC (CHL) 
CALL 9595 
RET Z 

DEC HL 

DEC (CHL) 
RET 


xx SOUS-FROGRAMME & ++ 


90C7 
9QCA 
9@CC 
QQCF 
90D0 
90D1 
90D4 
90D5 


2ABG SA 
2600 
114F00 


LD HL, (3486) 
LD H,0@ 

LD DE,004F 
ADD HL,DE 
EX DE,HL 

LD HL, (3488) 
XOR A 

SEC HL,DE 


5Sp Sé: afficher nlle ligne et nlle colonne 
5 * VERS INTERROGATION CLAVIER 


" 

curseur memoire-80 

sHL pointe sur ligne theorique 
sligne theorique-i 

sligne ecran=z2 7? 

sQUi, fini 

snon, alors ligne ecran-i 

« 


“ 
0] 


scolonne dans L 

379 dans DE 

:79+colonne dans HL 

spuis dans DE 

scurseur memoire dans HL 
enlever carry 

scurseur memoire-DE dans HL 


AT 
a de 


228 


ri) 
de den 


mu 
du 


Gen Er: 4 
EE À 
mere 
dt 4 


PORN PR | 


MT 
234 
Con ar 7x 
259 
MT 
25 


237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 


9@D7 
9ODA 
9@DD 
9GEQ 


115000 
Q150CQ 
CDC194 
C9 


LD DE,0050 580 dans DE 

LD EHC,CAQ50 ‘adresse debut ligne ? dans KC 
CALL G4CIi safficher DE caracteres 

KRET : 


xx SHIFT + CURSEUR DROITE *% 


9QEE 
9GEE 
90F 1 
90F4 
90F7 
SGFA 
SGFD 
9100 
9101 
9102 
9105 
9106 
9109 
910A 
91aC 
910E 
9110 
iii 
11e 
9115 


CDAI9S 
CA4SG4 
CD:495 
CA4SS4 
ZABBIA 
CDBD9S 
TABE SEA 
47 

23 

24 
2288SA 
CDS5495 
78 
2804 
FESQ 
2@F1 
SD 

2B 
S2865SA 
22885A 


CALL 9SAÏ scolonnez=680 © 

JF Z,944% oui, vers coup de cloche 

CALL 95354 icurseur memoire=fin de texte 7? 
JF Z,944Z soui, vers coup de cloche 

LD HL, (SA88) scurseur memoire dans HL 

CALL 9SBD safficher caractere (HL) 

LD A,(:A86) scolonne dans À 

LD E,4 set dans E 

INC HL curseur memoire+i 

INC KE scolonne+i 

LD (5488) ,HL ranger curseur memoire+i 

CALL 95354 scurseur memoire=fin de texte 7 

LD À, scolonne+i dans A 

JRZ 9110 oui, curseur memoirezfin de texte 
CP. 00 scolonne+i-=80 7? 

JRNZ 9101 s:non, alorbë boucler 

DEC A scolonne definitive dans A 

DEC HL scurseur memoire definitif dans HL 


LD (SAS6G) ,A set ranger les deux 
LD (SA88) ,HL :; 


272 


7 


9116 


C5798F 


JF 8F79 


#*%x SHIFT + CURSEUR HAS +** 


11H 
Lie 
7121 
97129 
9126 
QILEA 
912D 
912E 
912F 
9152 
91:54 
9156 
9157 
9159 
9135H 
91:5D 
QISE 
9141 
9144 
9147 
914 
914D 


CD:495$S 
CA4:94 


EDSESAZA 


21985A 
ED 
Q01:006 
Q% 

FS 
CDED9S 
FEQI 
290$ 
Fi 
Célé 
18F2 
ED 42 
Fi 
CDS559 1 
115006 
215000 
CDC194 
CDCA9S 
SE 


CALL 9554 
JF 2,9445 


LD DE, (3A84) 


LD HL,3498 
LD A,@1 

LD BC,06E0 
ADD HL,BC 
FUSH AF 
CALL 9SED 
CF oi 

JRZ 913E 
FOF AF 

ADD A,16 
JR 912D 
SEC HL,RC 
FOF AF 
CALL 9155 
LD DE,U6E@ 
LD EC,C050 
CALL 9401 
CALL 95CA 
LD A,01 


3% VERS INTERRKOGATION CLAVIER 


nn 


scurseur memoire=fin de texte 
oui, vers coup de cloche 
sfin de texte dans DE 

sdebut texte dans HL 
scorrespond a iere ligne theorique 
snombre de caracteres par page dans BC 
:HL pointe sur debut page suivante 
"preserver À 

:comparer HL et DE 

sHL > DE 7 

: DU 

non, recuperer À 

‘ligne theoriquet+2ë 

set boucler 

srevenir a debut page precedente 
“recuperer ligne theorique correspondante 
:SP 7 

safficher 1760 caracteres 

sa partir adresse depart ligne %# 


“ 
# 


safficher CUr Sel 
A pret pour sp 36 


274 


27 


914F 
9152 


CDFC9S 
CSCCSE 


:Sp 36: afficher nlle ligne et nlle colonne 


1 * VERS INTERROGATION CLAVIER 


CALL 9SFC 
JF BECC 


**x GOUS-FROGRAMME 7 ++ 


9190 
9156 
9157 
9156 
915E 
915D 
9160 
QIGE 
39164 
9185 
9166 
9169 
916A 
Qi6GEH 
916C 
916F 
9170 
9171 
9174 
9177 
9174 
917HR 


ES 
F5 

EE 
2ABATA 
EDS? 
015000 
CD7C91 


22647A 


32268635A 
ZASATA 
22885SA 


CS 


PUSH HL spreserver registres 

FUSH AF ; 

EX DE,HL ‘adresse debut de page dans DE 

LD HL, CSABA) sfin de texte dans HL 

SBL HLYDE sfin de texte-adresse debut de page dans HL 
LD BC,0050 :90 dans DE 

CALL 9170 sHL/EHC, resultat dans À, reste dans L 
LD K,A sresultat dans RE 

FOF AF srecuperer ligne theorique 

ADD A,R s+B 

LD (TAGS) ,A4 ranger nouvelle ligne theorique 

LD A,H scalculer ligne ecran (sligne 

INC A stheorique+2), et ranger 

INC À sdans son placard 

LD (FA84),4  : 

INC L snouvelle colonne=sreste+i 

LD A,L s 


ranger 

sfin de texte dans HL 
scurseur memoire=fin de texte 
srecuperer HL 


LD (3486) ,A 
LD HL, (3A8A) 

LD (3488) ,HL 

POF HL 

RET : 


298 
299 
500 
301 


A 
ne) Va) die 


303 
304 


TOS 


06 


xx SOUS-FROGRAMME 6 +x+ 


917C 
917D 
917r 
7191 
9182 
9184 
9186 
187 


AF 
ED4Z 
T80Z 
2C 
18F9 
ED4R 
2E 
C9 


XOR À 

SEC HL,EC 
JRC 9184 
INC A 

JR 917D 
ADC HL,BC 
DEC HL 
RET 


enlever carry 

“ 

sreport 7? 

x 

non, continuer boucle 
ï 

sreste dans HL 


" 
x 


#*x METTRE/ENLEVER MODE INSERTION (COPY) *+% 


918D 
9190 
as 
9194 
9196 
9199 
919C 
JTE 
JLYE 
JiAZ 
GiAS 
916 


5A875A 
FEQi 
280A 
SEO1 
52875A 
21B773 
1807 
AF 
52875A 
21B071 
ES 
21190E 


LD A,(5487) 
CF Qi 

JRZ 919E 

LD A,01 

LD (3487),4 
LD HL,91B9 

JR 91A5 

XOR A 

LD (3487),4 
LD HL,91BC 

FUSH HL 

LD HL,GE19 


:sSemaphore insertion dans À 
«deja a 1 7? 

Oui 

snon, alors mettre semaphore a 1 


: HL. pointe sur chaine ‘INS‘ 

svers affichage 

imettre semaphore a Q@ 

: HL pointe sur chaine espaces blancs 
1% AFFICHAGE 


318 9149 CD75SEE CALL HkR75 spositionner curseur en (H,L) 


519 QiAC El FOF HL Ë 
20 G1AD VG6OQZ LD K,Q% “+ caracteres dans la chaine 
321 914F 7E LD À, CHL) sboucle d'affichage 
F22 918Q CDSARER CALL HESA . 
323  91RS 23 INC HL : 
32 91E4 10F9 DJNZ 91AF H 
Se 9iké CICCSE JP SECC : VERS INTERROGA + 
. . 7e 4S *OGATION CLAVIER 
327 91BA 4E : ‘N° 
528 91BB 53 1 °S 
+29  9IRC 20 : 
33G 91ED 20 
351  9IBE 20 
** DEL **% 
332 TABr CDIF9S CALL 951F curseur memoire=mini 7? 
_ Ds A JF Z,9445 oui, vers coup de cloche 
SE &4 CALL 95354 scurseur memoire=fi < 7? 
355 91C8 3E01 LD A,@1 : ÉD 


557 rs Re pue Z,9S7E si oui, fin de texte-A (donc -1) 

; D HL,905F  :*x TRANSFORMER CUR 
338 91DO 36C9 LD (HL),C9 SEUR GAUCHE EN SF 
339  91D2 ES PUSH HL : 


340 91D3 CD4190 CALL 9041 appeller CURSEUR GAUCHE comme un sp 


341 
347 
343 
344 
345 
346 
347 
748 


349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 


360 


+ 


91D6 Eli FOF HL 
91D7 Z6CZ LD CHL),C3 
Q91D9 ZA8SBTA LD HL, (3488) 
91DC 3S6FF LD CHL),FF 
91DE CDBD9S  CALL 9SED 
9iE1 CDCA9S CALL 95CA 
91E4 CXCCBE JP 8ECC 
91E7 QG NOF 

#* SHIFT + CURSEUR GAUCHE 
91E8 CDA795  CALL 95A7 
Q1ER CA4394 JF 2,944 
Q1EE CDED9S  CALL 95BD 
QiFi ZABGTA LD A,(3A86) 
9iF4 Z3D DEC A 

9iFS  3D DEC A 

9iF6 FEQQ CF a 

91F8 CA4190 JF Z,904i 
Q1FE 47 LD B,A 

Q1FC CD749Q  CALL 9074 
Q1FF  10FE DJNZ 91FC 
9201 C:4190 JF 9@4i 

** GHIFT + CURSEUR HAUT *% 
9204 CDIF9S  CALL 951F 


5# RESTAURER CURSEUR GAUCHE 
: code espace inutile dans (CHL) 
safficher caractere (HL) 
afficher curseur 


s*% VERS INTERKOGATION CLAVIER 
scolonnezi 7? 

soul, vers coup de cloche 
‘afficher caractere (HL) 
scolonne dans A 

4 

:colonne-? = Q 7 

oui, alors vers CURSEUR GAUCHE 


:compteur de boucle 

smodifier variables comme pour ceursr gauche 
sboucler 

1% VERS CURSEUR GAUCHE 


curseur memoirez=mini 7? 


362 9207 CA4S94 JF Z,9445 oui, vers coup de cloche 


RTS GE0A  218435A LD HL,35A84 sligne ecranz2 

364 920D 5602 LD (CHL),02 ; 

F6S 920F 25 INC HL sligne theoriquezi 

S66 9210 3601 LD: (HD), 221 ; 

267 9212 2$ INC HL scolonnez=i 

566 9215 TFéDi LD (CHL),@1 5 

369 9215 2198SA LD HL,:5498 scurseur memoirez=15000 


570 9218 22885A LD (5A88) ,HL : 
371 G21R 117841 LD DE,4178 safficher ecran de 15000 a 16760 
372 Q21E CD8A94 CALL 948A 


575 9221  AF XOR A safficher nouvelle colonne 

374 222 CDFC9S CALL 95FC ; 

375 225 SE02 LD A,02 safficher nouvelle ligne 

376 9227 CDFC9S CALL 9SFC $ 

377 22 SE20 LD A,20 effacer eventuel Seme chiffre ancien. liqg. 
378 922C CDSABE CALL BRRSA ; 

379 922F CDCA9S CALL 9S5CA safficher curseur 

S80 9252 CSCCSE JF 8ECC :* VERS INTERROGATION CLAVIER 


#**x SAISIE D'UN CARACTERE *% 


s61 9256. F9 FUSH AF spreserver caractere 
382 9257 SAS7TZA LD A,(5A87) :Ssemaphore d'insertionsi 7 
S85 925A FEDI CF Qi ; 


3684 923C 2004 JRNZ 9242 snon 


POF AF 

JF 9244 

FOF AF 

LD HL, (7488) 
LD (CHL),A 
JF 8F79 


Oui, recuperer caractere... 
ÿ... et vers insertion 
recuperer caractere 

sranger en RAM a emplacement 
spointe par curseur memoire 
5 * VERS CURSEUR DROITE 


#+% INSERTION D'UN CARACTERE %+ 


923SE Fi 
Q3F C34492 
924? Fi 
9243 ZABBTA 
9246 77 
9247 C3798F 
9244 Z2813A 
924D CD2995 
9250 CA4394 
9253 EH 
9254 SEFF 
9256 BE 
9257 JABITA 
254 CA4S92 
925D CDCE9? 
9260 FEU3 
9262 2019 
9264 CD6i95 
9267 SEOI 
9269 C46F95 
926C 1E 
926D SEUI 
926F CD5594 
9272 SABISA 
275 77 


LD (3A81),A 
CALL 952 

JF Z,9445 
EX DE,HL 

LD A,FF 

GP: (HE) 

LD A,(3:A681) 
JF: Zs724S 
CAL.L 92CE 
CP OS 

JRNZ 927D 
CALL 95461 
LD A,01 
CALL N7Z,956F 
DEC. DE 

LD A,@1i 
CALL 9455 
LD A,(TA81) 
LD (CHL),A 


srangement provisoire du caractere 
curseur memoire=maxi 7? 

1OUi, vers coup de cloche 

curseur memoire dans HL 

scursr, mem. pointe sur espace inutile 7? 
. 
recuperer 
:* OUI, VERS FIN FROGKAMME FRECEDENT 
sf .d.t. où esp, inut., où fin paragr. 
fin de texte 7 

non 

iouUl, fin de textezmaxi 7? 


caracter 


ds DE 


son , alors fin de texte+i 

DE pointe sur caract. avant espace inutile 
sdecaler (CHL) a (DE) de +1 

:recuperer caractere 

set l'ecrire en KAM 


410 276. ES INC DE : 
ail 9277 CD8A94 CALL 948A safficher de (HL) a (DE) 
4i= 9274 CS796F JF 8F79 1: * VERS CURSEUR DROITE 
415 27D FEOQI CF Qi ‘espace inutile 7? 
4i4 927F 26EB JRZ 9260 oui 
415 9281 SESQ LD A,50 sinon, donc fin paragr. / colonne=60 7? 
416 92687 BB CE É 
417 9284 20E7 JRNZ 9%26D non 
418 9286 ES FUSH HL oui, preser ver HL et DE 
419 9287 DS FUSH DE : 
470 288 13 INC DFE spointer HL sur DE+1 et DE sur +,d.t 
421 9289 ER EX DE,HL . 
22 9284 EDSRSASA LD DE, (FA8A) : 
425 928E SES0 LD A,50 ‘decaler (HL) a (DE) de +60 
424 9290 CD5594 CALL 9455 ù 
425 9293 Di POF DE srecuperer DE et HL 
426 294 El FOF HL : 
427 9295 SEO1 LD A,@i ‘decaler (CHL) a (DE) de +1 
478 97297 CD5594 CALL 9455 : 
429 29A 13 INC DE ‘ecrire 79 espaces inutiles a partir 
450 929B 15 INC DE ide fin de paragraphe +2 
aTi 929C 064F LD B,4F : 
32 929E CDFE92Z CALL 92FE s 
AGE Q2Ai1 SESO LD 4,50 «fin de texte+60 
454 Q92A3 CD6F9s CALL 956F s 
455 Q2A6 ES PUSH HL spreserver HL 
456 Q2A7 EDSBSASA LD DE, (SASA) fin de texte+80 > 25599 7? 


448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 


92AR 
QRAE 
2H 1 
92ES5 
92E5 
92H 
Q2HE 
Q9EEC 

2EBF 
92C0Q 
9205 


214784 
CDED9S 
FEFF 
2006 
228A3A 
CDO793 
El. 
TA813A 
77 
CD8A94 
C3798F 


LD HL,8A47 
CALL 9SED 

CP FF 

JRNZ 92BE 

LD (3484) ,HL 
CALL 9307 
FOF HL 

LD A,(3A81) 
LD (CHL),A 
CALL 9484 

JF 8F79 


**x SOUS-FROGRAMNME 9 #% 


92CE 
Q9ÈCE 
Q2CF 
92D5 
9E2D4 
92D7 
92D9 

2DE 
92DC 


SABGTA 
47 
EDSRSATA 
ES 
CDED9S 
FE 


LD A, (3486) 
LD B,A 

LD DE, (3A8A) 
FUSH HL 
CALL 9SED 
CF @0@ 

JRNZ 92DF 
FOF HL 

LD A,03 

RET 

LD A, (HL) 

CF FF 

JRNZ 92E9 

EX DE,HL 


non 
soui, alors fin de texte=5:5599... 
,...-et nettoyer 55400 a 55480 
srecuperer HL 

srecuperer caractere... 

1...et l'ecrire en KAM 

‘afficher caracteres de (HL) a (DE) 
3% VERS CURSEUR DROITE 


scolonne dans KE 


sfin de texte dans DE 

spreserver HL 

scomparer HL et DE 

:HLEDE 7 

non 

soui, alors f.d.t, trouve/Recuperer HL 
ssignal dans À 

RUE 

espace inutile 7? 


sinon 
soui, alors adresse correspondante dans DE 


462 QE El FOR HE srecuperer HL 


AGE JeE6. SEUL LD A,Qi ssignal dans A 

464 JE  €E9 RET sfini 

465 FAR. 7e LD-A, CHL) sfin de paragraphe 7? 

486 Q2EA FEF? a a 2 ; 

467 Q2EC 2005 JRNZ 92FS sinon 

4668 VER “ED EX DE,HL soui, alors adresse correspondante dans DE 
469 Ver - El POF HL srecuperer HL 

470 G2FQ.  SEU2 LD A,02% sSsignal dans À 

471 are: C7 RET sfini 

47% Q2FT 04 INC E syrien trouve, alors KH+1 (colonne) 
4735 ZF4 253 INC HL :HL pointe sur adresse suivante 
474, 92FS SESI LD A,51 :EH=691 7? 

475 92F7 B8 CF B : 

476 92F8  2ODA JRNZ 92D4 snon, alors continuer a chercher 
477 QG2FA O60Qi LD R,@1 soui, alors B«i 

478 92FC  18D6 JR 92D4 scontinuer a chercher 


#**x GOUS-FROGRAMME 10 *x% 


479 Q2FE DS PUSH DE spreserver DE 

480 2FF SEFF LD A,FF :code espace inutile dans 4 
481 9501 12 LD (DE) ,A secrire en RAM 

482 302 15 INC DE sadrsse suivante 

4825 95053  10FC DJINZ 9501 «si compteur <> @, continuer 


484 9505 Di POP DE srecuperer DE 


485 


486 
487 
488 
489 
490 
a9i 
492 
493 
494 
495 


496 


498 
499 
500 
STE 
502 
SOS 
S@4 


930$ 


9506 


(Br, 


RET 


#** GSOUS-FROGRAMME IL + 


9307 ES 
9308 C5 
9:09 21488A 
950C 0650 
QS0E 36FF 
9310 23 
9311 10FE 
9313 C1 
9314 El 
9315 C9 
xx CLR #%# 
9316 CD2995 
9319 EB 
9314  200E 
931C 36FF 
931E  CDRD9S 
9321 CDCA9S 
9324 C3CCSE 
9327 CD3495 
9324 CA4394 
932D 21E292 


FUSH HL 
FUSH BC 

LD HL,8448 
LD B,50 

LD CHL),FF 
INC HL 
DJNZ 930€ 
FPOF EC 

POF HL 

RET 


CALL 952 
EX DE,HL 
JRNZ 9327 
LD CHL) ,FF 
CALL 95ERD 
CALL 95CA 
JF 8ECC 
CALL 953 
JF 2,9443 
LD HL,92E2 


ypreserver registres 

: 

spointer HL sur 35400 
scompteur 

‘ecrire espace inutile en RAM 
‘adresse suivante 

sisi compteur #+ Q, continuer 
recuperer registres 


scurseur memoirez:maxi 7 
curseur memoire dans HL 
curseur memoire #4 maxi 

sicode espace inutile en RAM 
safficher caractere (HL) 
safficher curseur 

1% VERS INTERROGATION CLAVIER 


curseur memoiresfin de texte 7 


QUI, vers coup de cloche 
Supprimer, dans sp 9, 


partie concernant... 


5306 
307 
508 
509 
510 
511 
512 
913 
514 
915 
516 
017 
918 
919 
92 

021 
92 

923 
524 
925 
926 
der 
928 
929 
9S0 
331 
932 


9550 
9532 
QSSS 
9556 
9557 
9SSA 
93SC 
95SD 
93S5F 
9341 
9545 
9546 
9547 
9549 
934C 
934D 
9550 
9SSS 
9356 
9359 
9S5B 
93SD 
9SSE 
935F 
9561 
9364 
9365 


S618 


CDCB92 
ES 
21E292 
3620 


FEQZ 
2815 
SEQ 1 
CD7E9S 
25 
SEQi 
CDéeF94 


CD8A94 
CDCA9S 
CSCCSE 
CDED9S 
FEUQ 
2845 
CS 

25 
SEO I 
CD6F94 


SEFF 


LD (HL),18 
EX DE,HL 
CALL 92CE 
FUSH HL 

LD HL,92E2 
LD (HL),20 
FOF HL 

CF O2 

JRZ 9:56 
LD A,@i 
CALL 957E 
INC HL 

LD A,@i 
CALL 946F 
DEC HL 
CALL 9484 
CALL 95CA 
JP 8ECC 
CALL 9SED 
CP GG 

JRZ 9342 
FUSH BC 
INC HL 

LD A,@i 
CALL 946F 
DEC HL 

LD A,FF 


*...eSpace inutile 
curseur memoire dans HL 
‘adresse fin paragr. 
spreserver HL 
“restaurer sp 9 

“ 

recuperer HL 

sfin de paragraphe 7 
SOU 


sinon, fin de texte-1 


afficher zone (HL) a (DE) 


…… 


‘afficher curseur 


ou esp. 


:decaler zone (HL+1) a (DE) de -1 


5* VERS INTERROGATION CLAVIER 


sfin de paragraphe / comparer HL et DE 


*HLEDE 7? 

sOUi 

non, preserver colonne 
:decaler zone (HL+i) a DE 
srestaurer HL 

seffacer anciennne fin de 


de —i 


paragraphe 


inut, dans DE 


Le-vier-sher-d 


sd toit sou 
554 
535 
56 
5237 
528 
539 
540 
S4i 
54? 
543 
544 
545 
546 
547 
548 
549 
550 
5S1 
55? 
SEE 
554 


EST 
es fe 


JJ6 
JS 7 
396 
J99 


9367 
9368 
9369 
926E 
9360 
QI6E 
936F 
9372 
9273 
9374 
9277 
9578 
9I7E 
937D 
937F 
9380 
9381 
9382 
9387 
9386 
9388 
926E 
936D 
9390 
9294 
9297 
9:98 


em 
ps 


C1 
3E01 
SL) 
2QDF 
ES 
Z2ABASA 
ES 

ER 
215000 
29 
CDED9S 
FEQI 
2007 
Di 

ES 

ES 

Di 
Z£EGASA 
SESQ 
CD&F94 
SESO 
CD7E9S 


EDSRSASA 


CDFE9Z 
Di 
Et 


LD (DE) ,A 


FOP EC 
LD A,@i 
CP B 


JRNZ 954D 


PUSH HL 


LD HL, (SASA) 


C] 
CI] 


srecuperer colonne 
scolonnezi 7? 

ñ 

snon 

oui, preserver HL 
sfin de texte dans HL 


PUSH HL 
EX DE,HL 


LD BC,0050 


ADD HL,BC 
CALL 9SED 
CF Qi 

JRNZ 95386 


sranger 
sfin de 
s:fin de 


texte dans DE 
texte+80 dans HL 


scomparer HL et DE 


:HL > DE 


# 


POF DE 
FUSH HL 
PUSH HL 
FOF DE 


LD (3484) ,HL 


LD A,50 


CALL 946F 


LD A,50 


CALL 957E 
LD DE, (3A8A) 
CALL 9Z2FE 


FOF DE 
FOF HL 


snon 
soui, nettoyer pile 

fin de texte+89 sur pile... 
5... dans DE... 

:... et dans placard 

sdecaler zone (CHL) a (DE) de -80@ 


0] 
ol 


sfin de texte-80 


LL 


nettoyer zone f.d.t. a f.d.t.+60 


recuperer registres 


560 9:99  CD8A94 CALL 9484 safficher de (HL) a (DE) 


Jéi 9590  CDCA9S CALL 9S5CA safficher curseur 

562 939F CSCCSE JP SECC :* VERS INTERROGATION CLAVIER 
DOS QIAZ  SEQI LD A,Q@1 scolonnez=l 7? 

64 Q9IA4  E8 CF E 8 

565 SAS 2807 JRZ 9SéE soui 

66 JEA7  SEFF LE CHLILFE snon, effacer caractere... 
67 9549  CDED9S CALL 9S5EBD 8 

68 GIAC  1SEE JR 959€ 5... et decalage RAM 


+x SHIFT + CLR +%* 


69 GERS  CD35495 CALL 9SS scurseur memoire=sfin de texte 7? 

570 9:B6 CA4T394 JF Z,9443 soui, vers coup de cloche 

971 95E9  CDA795S CALL 95A7 scolonne=1i 7? 

72 QIRC  280QD JRZ 93CE sOUi 

J/S 9SBE 215rF90 LD HL,905F snon, forcer cursr. en col.i:transformer.., 
574 9SCi1 Ss6C9 LD (HL),C9 :... SHIFT+GAUCHE en sp... 

74 9SCS CDES9I CALL 91iE8 5... et appeler 

976 93C6 215F90 LD HL,905F srestaurer SHIFT+GAUCHE 

A7 9SC9 SeCS LD (HL),CS 8 

978 GICR 2A883A LD HL, (SA8B8) scode fin paragr. a emplac. cursr, mem. 
979 OSCE S6F2 LD (HL),F2 s 

5680 93D0 CS1695 JF 9316 :* VERS CLR 


#+x ENTER **% 


581 95D3 CD8F9S CALL 958F sligne actuellez=zmaxi 7? 

5682 95Dé CA4S94 JF Z,9445 Oui, vers coup de cloche 

983 95D9 CDA79S CALL 95A7 scolonne actuellezi 7? 

584 93SDC CADABF JF Z,8FDA soui, alors simplement vers CRSR BAS 

pu = fs) 93DF 215F90 LD HL,905F snon, forcer crsr.,. en col. i:transformer.., 
586 93E2 S6C9 LD (HL),C9 


5... SHIFT+CURSEUR GAUCHE en sp... 
ëg7  93E4 CDEB9I CALL 91E8 1... et appeler 
“gg  93E7 215F90 LD HL,905F srestaurer SHIFT+CURSEUR GAUCHE 
589  9YEA S6CZS LD (HL),C3 $ 
59Q  9ZEC CSDASF JP 8FDA : 


ü 


* VERS CURSEUR BAS 
*x SHIFT + ENTER *+ 


991 Q3EF  CD8F95S CALL 958F sligne theoriquez=zmaxi 7? 

T7 93F2 CA4S9A JF 2,944 oui, vers coup de cloche 

0935 93FS  CDS495 CALL 95354 scurseur memoire=fin de texte 7 
394 9:F8 Z02A JANZ 9424 snon, traiter en insertion 

999 QSFA  CDAÏ9YS CALL 95A1 scolonne=80 7 

596 Q9SFD Z81D JRZ 94iC ioui, sortir code fin de par. normalement 
7 QSFF  ZABBTA LD HL, (SA88) snon, ecrire code en RAM 

598 9402 SéFE LD (HL),F2 : 

5979 9404  CDRD9S CALL 9SKHD set afficher 

600 9407 SABESA LD A,(5A86) :colonne dans A... 

601 9404 47 LD KH,A puis dans KE 


b@z 940 3ES0 LD A,50 


605 
604 
685 
606 
607 
608 
629 
610 
6ii 
biz 
615 
614 
615 
616 


618 
619 
(S 

621 
622 
625 
624 
625 


626 


940D 
94QE 
g4a11 
9414 
9416 
9419 
g41C 
941F 
9421 
9424 
9427 
9429 
942C 
942E 
942F 
9430 
9432 
Q4SS 
9456 
9437 
9459 
943B 
94SE 
9440 


S6Cs 
C3SCC8E 


SUE E 
CALL 956F 
CALL 9541 
LD 4,50 


LD (5486) ,A 


JF 8F79 


LD HL, (54886) 


LD (CHL),F2 
JF 8F79 

LD HL,8FA6 
LD (CHL),C9 
LD HL, 3486 
LD A,51 
SUE (HL) 
LD B,A 

LD A,F2 
FUSH EC 
CALL 9244 
FOF BC 

LD A,FF 
DJNZ 9432 
LD HL,8FAG 
LD (HL),CS 
JF 8ECC 


:80-colonne dans À 
“fin de textet+A 
curseur memoiretA 
scolonne=80 


LI 
“ 


:* VERS CURSEUR DROITE 
:code fin de paragraphe en KAM 


:x VERS CURSEUR DROITE 
transformer CURSEUR DROITE en sp 


“* CALCULER 81-COLONNE 


resultat dans K 
:* INSERER 1 FOIS CODE FIN DE PARKAGRAFHE 
ET B-i FOIS CODE ESPACE INUTILE 


restaurer CURSEUR DROITE 


* VERS INTERROGATION CLAVIER 


627 
62 
629 


4 4 LA CA LA LA A 4 


3 
4 


LOST RARES 


Eee 


Lt 


see 
RER E 
RA4HrsS 


& & 
EE & 
& ü 


647 


#x ERREUR %% 
9445  SE07 LD À,07 


9445  CDSABE CALL BERSA 
9448  CSCCBE JF SECC 


#**x SOUS-FROGRAMME 12% 


94SS 47 LD KH,A 
9456  ÀF XOR À 
9457 78 LD A,E 
9458 ES FUSH HL 
9459 DS FUSH DE 
Q4SA EH EX DE,HL 
94SR EDS SEC HL,DE 
94SD 25 INC HL 
QASE ES PUSH HE 
QASF Ci FOF BD 
9480 El FEOP-NE. 
9461 ES FUSH HL 
9482 SF LD E,A 
9465 1600 LD D,00 
9465 19 ADD HL,DE 
9466 ES FUSH HL 
9467 Di OF: DE 
94688 El POF-'HE 


code 7 dans À 
executer 
:#4 VERS INTERROGATION CLAVIER 


spreserver À 
‘enlever Carry 
srecuperer À 
:preserver registres 


1 x CALCULER NOMBRE D'OCTETS À DECALER.., 
ss SOITS DE-HL+1 


resultat dans BC 
* CALCULER FOSITION DE FOUR DECALAGE.,., 
"ss SOIT: DE+A 


ÆU ‘“ÆR ‘2 ‘£S ‘AN ‘LE “AS “ÆE “an “ZE 


sresultat dans DE 
srecuperer HL initial 


648 9469 ES PUSH HL set preserver a nouveau 


649 G46GA  EDES LDDF stransfert repetitif avec decrementation 
650 948C Di POP DE recuperer registres 

651 946D El FOPF'AEL 3 

la pe PA QA4GE C9 RET 8 


#*% SOUS-FROGRAMME 135 %+% 


GS Q4GF 47 LD K,A spreserver À 

654 9470  ÀF XOK À senlever carry 

655 9471 78 LD À,H srecuperer À 

656 9472 DS FUSH DE spreserver registres 

657 9475 ES FUSH HL 8 

658 9474 ER EX DE, HL s* CALCULER NOMBRE D'OCTETS À DECALER... 
859 9475 EDS? SEC HL,DE Suoss SOIT: DE-HL+i 

660 9477 23 INC HL Ë 

661 9478 ES FUSH HL s 

bé 9479 Ci FOF KHC sresultat dans RC 

66 Q47A El POrF HE s5* CALCULER FOSITION DE POUR DECALAGE.., 
664 947H ES PUSH HL Se... SOIT: DE+A 

665 9470 SF LD E,A 8 

666 947D 14600 LD D,00 : 

667 947F  EDS2 SBC HL,DE . 

668 Gag1 ES PUSH HL : 

669 9482 Di FOF DE sresultat dans DE 

670 9485 El FOF HL srecuperer HL initial 

671 9484 ES PUSH HL spreserver a nouveau 


672 
67:35 
674 
675 


676 

677 

678 
679 
680 
681 

682 
BEBE 
684 
685 
686 
687 
688 
689 
690 
691 
692 
695 
694 
695 


9485 
9487 
9488 
9489 


LDIR 
FOF HL 
FOUF DE 
RET 


*x*x SOUS-FROGRAMME 14 %% 


9484 
948E 
9480 
948D 
QABE 
9490 
9491 
9492 
9495 
9496 
9499 
949A 
949E 
949C 
949F 
9440 
g4ai 
Q4AS 
9406 
947 


DS 

ES 

AF 

EB 
EDS2 
ER 
FA84SA 
6F 
SAB6ESA 
67 

£9 

£2D 
CDIiARC 


PUSH DE 
FUSH HL 
XOR A 

EX DE,HL 
SEC HL,DE 
INC HL 

EX DE,HL 
LD A,(3484) 
CHSLCA 

LD À, (386) 
LD H,A 

DEC H 

DEC L 

CALL BCIA 
FUSH HL 
ADD HL,DE 
JRNC 9444 
LD DE,G6EQ 
FOF HL 

FUSH HL 


:transfert repetitif avec incrementation 
srecuperer registres 


spreserver registres 

:enlever carry 

5*# CALCULER NOMBRE D'OCTETS A AFFICHER... 
sus QUITS DE-HL+i 


sresultat dans DE 

sligne dans L 

: 

scolonne dans H 

; 

scolonne reelle = colonne -—1 

sligne reelle = ligne -1 

scalculer adresse ecran correspondante 
sresultat dans HL, preserver 

‘adresse + nombre d'octets 5% 655215 7 
non 

sOUi, alors nbre octets a afficher=1760 
adresse ecran dans HL 

‘et preserver a mouveau 


696 


708 
709 
710 
711 
712 


715 
714 
715 
716 
7147 
718 


9448 
9449 
94AÀ 
94AD 
G4AF 
94H 1 
GARE 
94RT 
94R4 
94K7 
94KH8 
94KH9 
94BRA 
GARE 
94KHC 
94HE 
G4EF 


17 

AF 
G12FC7 
ED42 
3009 
Ci 

EI 

ES 


CDCI194 


EDS2 
EE 
18F@ 


ADD HL,DE 
XOR A 

LD BC,C72F 
SEC HL,BRC 
JRNC 94BA 
FOF EC 

FOF HL 
FUSH HL 
CALL 94Ci 
FOF HL 

FOF DE 

RET 

DEC HL 

EX DE,HL 
SEC HL,DE 
EX DE,HL 
JR 94Bi 


** SOUS-FROGRAMME 15 #%% 


94c1 
94cC2 
94CS 
94C4 
94c7 
94c8 


FUSH DE 
FUSH HL 
LD À, (HL) 
CALL 94Di 
FOF HL 
FOF DE 


adresse ecran + nombre d'octets dans HL 
senlever carry 


1% RESULTAT 250991 (FIN 2eme LIGNE) 7? 
:non 
“oui, alors adresse ecran de depart ds KC 


adresse initiale dans HL 
set preserver a nouveau 
afficher DE caracteres 
srecuperer registres 


Li] 
n 


sfin 

svaleur du depassement dans HL 

et HL contient DE initial 
— depassement 


spuis dans DE, 
DE initial 


scontinuer 


spreserver registres 
; 

scaractere dans A 
safficher caractere 
srecuperer registres 


T29 94C9  1B DEC DE :* COMPTEUR = Q 7? 

72 9A4CA  7E LD A,E ; 

721 94CH Fo OR D 5 

Fee 9aCC C8 RET 2Z sotls, fini 

125 G4CD 23 INC HL spointeur RAM sur adresse suivante 
724 QACE OS INC RC spointeur ecran sur adresse suivante 
725 9aCF  18F0Q JK 94Ci scontinuer 


** SOUS-FROGRAMME 16 #*% 


726 94D1 FEER CF: ER scaractere redefimi ( 2235 7} 

727 ADS S022 JRNC 94F7 OL 

728 94DS5 SF LD E,A snon, code ASCII dans E 

Far 94D6 1600 LD D,00 sannuler D 

750 94D8 210000 LD HL,0000 snuler HL 

751 9ADR TEU8 LD 4,08 :compteur dans À 

75 GADD 19 ADD HL,DE “* EHOUCLE DE MULTIPLICATION 

TEE GADE ED DEC À ; 

7:54 G4DF  2@FC JRNZ 94DD si fini, HLeSxcode ASCII / sinon continuer 
Ta QUE 70 LD À,H ‘ajouter &56 a H, equivaut a ajouter... 
756 QAEZR C4658 ADD À,58 seu. 14556 à HL (14776=256x058),., 

737 94E4 67 LD H,A ...donc HLesB*code ASCII+14556 

758 94ES  S0Q LD D,B ‘adresse ecran dans DE 

759 94Eé 59 LD E;,C . 

740 94E7  CDO6KH9 CALL 5906 :sSelectionner la ROM 

741 Q4EA 7E LD “A, (HL) scharger À avec contenu ROM 


74 Q4ER 2 LD (DE) ,A set adresse ecran avec À 


de 


745 QAEC Z2S INC HL :HL pointe sur adresse ROM suivante 
744 Q4ED 7A LD À,D sajouter 2048 a DE, qui pointe donc sur... 
745 Q94EE Cé608 ADD À,08 1... -octet ecran situe... 

746 G4FQ 7 LD D,A ;...-immediatement sous le precedent 
747 Q4F1 TSOF7 JRNC 94EA ssi pas de depassement, boucler 

748 QG4FE  CDO9ER9 CALL 5909 :Si depassement, couper KOM select 

749 94F& C9 RET set retour 

750 94F7  DéER SUB EB 5% CALCULER (A-2355) *+8+425680 

751 94F9 SF LD E,A = 

752 94FA 16900 LD D,00 u 

7335 Q94FC 210000 LD HL,0000 : 

754 94FF  3EU8 LD À,08 : 

759 9501 19 ADD HL,DE s 

756 9S0Z SD DEC A ; 

797 SOS 20FC JRNZ 9501 ; 

758 9505 11546 LD DE,A654 3 

759 908: 19 ADD HL,DE sresultat dans HL 

760 9509 50 LD D,H 3* BOUCLE DE SORTIE ECRAN IDENTIQUE... 
761 950A 59 LD E,C 5... À CELLE UTILISEE POUR CARACTERES... 
762 9S50R 7E LD A, (HL) 5... NORMAUX, MAIS SANS SELECTION... 
763 9SOC 12 LD (DE),A fe..DE LA KOM 

764 950D 25 INC HL ; 

765 Q9S0E 74 LD A,D : 

766 950F Cé608 ADD A,08 ; 

767 Jai 97 LD D,A ; 


768 9512 SOF7 JRNC 9508 


769 


775 
776 
11 
778 
41% 


760 
781 


785 


9514 


C9 


RET 


#*x SOUS-PROGRAMME 17 %% 


951F 
952 
9523 
952 


9528 


AF 
ZABBSA 
11985A 
ED52 
C9 


XOR A 

LD HL, (3488) 
LD DE,3498 
SEC HL,DE 
RET 


xx SOUS-FROGRANME 18 «+ 


9529 
952 

952D 
9531 


SES 


AF 
21478A 
EDSB8GZA 
EDS2 

C9 


XOR A 

LD HL,8447 
LD DE, (3488) 
SEC HL,DE 
RET 


*x SOUS-FROGRAMME 19 ++ 


9534 
9535 
9536 


953 


AF 

ES 
ZABAZA 
EDSEGSS TA 


XOR À 

FUSH HL 

LD HL, (3ABA) 
LD DE, (3488) 


enlever carry 

scurseur memoire dans HL 
515000 dans DE 

s HL-DE 


senlever carry 

129299 dans HL 

curseur memoire dans DE 
s AL=DE 


* 


‘enlever carry 
spreserver HL 

sfin de texte dans HL 
curseur menoire dans DE 


784 
785 
786 


197 
788 
789 
790 
PTa 
792 
119 
794 
795 
796 


797 
798 
197 
800 
8ai 
802 
805 
804 


953D 
953F 
9540 


EDS2 
ET 
C9 


SEC HL,DE 
FOF HL 
RET 


**x SOUS-FROGRAMME 20 +*+% 


9541 
9542 
9543 
9544 
9546 
9549 
9544 
954D 
954€ 
954F 


ES 
DS 

SF 
1600 
2A8834A 


FUSH HL 

FUSH DE 

LD E,A 

LD D,0@ 

LD HL, (3488) 
ADD HL,DE 

LD (3488) ,HL 
FOF DE 

POP HL 

RET 


** SOUS-FROGRAMME 21 %+# 


9550 
9551 
9552 
9553 
9555 
9556 
9559 
955B 


ED52 
22885A 


FUSH HL 

PUSH DE 

LD E,A 

LD D,00@ 

XOR A 

LD HL, (3488) 
SBC HL,DE 

LD (3488) ,HL 


LS DE 
recuperer HL 


:preserver registres 
| 


svaleur a ajouter dans DE 


“ 
curseur memoire dans HL 


sHL+DE dans placard curseur memoire 
recuperer registres 
: 


spreserver registres 

5 

sVvaleur a soustraire dans DE 
s 

senlever carry 

curseur memoire dans HL 


3HL-DE dans placard curseur memoire 


805 
806 
807 


808 
809 
810 
811 
81% 
81:35 
814 
815 
816 


817 
816 
819 

20 
81 
822 


Len Jer-- 
us ‘ous 


9SSE 
955F 


9560 


Di 
Ei 
C9 


FOF DE : 
POF HL : 
RET : 


recuperer registres 


**x SOUS-FROGRAMME 22 *%* 


9561 
9562 
9565 
9564 
9567 
956A 
956C 
9S6D 
956E 


XOR À senlever carry 
PUSH HL spreserver registres 
FUSH BC ; 


LD HL,(SABSA) ;fin de texte dans HL 
LD EC,8A47 135399 dans RC 

SRC HL,HBC 
POF BC 
POP HL 
RET 


recuperer registres 


#**x SOUS-FROGRAMME 235 %% 


956F 
9570 
9971 
9572 
9574 
9577 
9578 


ES 

DS 

oF 
1600 
ZABASA 
19 
228ASA 


FUSH HL spreserver registres 

PUSH DE 8 

LD E,A :valeur a ajouter dans DE 
LD D,00Q ; 

LD HL,(SA8A) sfin de texte dans HL 

ADD HL,DE 5 


LD (3A8A) ,HL 5: HL+DE dans placard fin de 


texte 


824 
825 


876 


827 
828 
829 
8:0 
831 
(= RU 
83S 
854 
85S 
856 
877 


856 
859 
840 


9S57R Di FOF DE 
Fit ET FOR AL 
957D C9 RET 


*x SOUS-FROGRAMME 24 %% 


957E ES FUSH HL 
#a/7F, DS FUSH DE 
9580 SF LD E,A 

9581 1600 LD D,00 
9583 AF XOR À 

9584  ZABASA LD HL, (SAGA) 
9587 EDS2 SHC HL,DE 
9589  Z28ASA LD (ZSABSA) ,HL 
958C Di rOr DE 

9959) EL FOF HL 

JS9E C9 RET 


#**% SOUS-FROGRAMME 25 #%% 


958F JABSSA LD À, (3485) 
9592 FEFF CF FF 
9594 C9 RET 


recuperer registres 


:preserver registres 

: valeur a soustraire dans DE 
enlever carry 

fin de texte dans HL 

: HL-DE dans placard fin de texte 
srecuperer registres 


sligne theorique dans A 
= 29595 7? 


“2 “25 “= 


841 
842 
847 


844 
845 
846 


847 
848 
849 


850 
851 


852 


#x*x SOUS-PFROGRAMME 26 %+% 


9595 3A8435A LD A, (3A64) 
9598 FEUZ CF 02 
9594 C9 RET 


#%x SOUS-FROGRAMNME 27 %% 
959R  SABASA LD A,(3A84) 
959E FE17 CP 17 

9540 C9 RET 

x SOUS-PROGKRAMME 28 *+% 
9SAi TABETA LD A,(C5AS6é) 
9544 FES CP 50 

9546 C9 RET 

xx SOUS-FROGRANME 29 *+% 
9507 SABESA LD A,(:486) 


9SAA FEOI CF Qi 
95AC C9 RET 


" 
E 
« 
" 
. 
bi) 


” 
bi 
" 
ol 


ne ecran dans À 
de) 


ligne ecran dans A 
= 25 7? 


colonne dans À 
= 80 7? 


colonne dans À 
= 1 7 


#*x SOUS-PROGRAMME 50 %% 


853 954D ES FUSH HL spreserver registres 

854 QSAE FS$ FUSH ÀF 8 

855 QSAF  SAB4SA LD A,(3484) ligne ecran dans A 

856 95E2 6F LD L,A spuis dans L 

857 9SES  SABETA LD A, (SA86) scolonne dans À 

856 95E6 67 LD H,A spuis dans H 

859 95B7 CD7SEE CALL BR7S scurseur systeme en (H,L) 
860 95BA Fi FOF AF “recuperer registres 

861 9OSEE El FOF HL . 

862 958C C9 KET ï 


#*x SOUS-PROGRAMME SI %% 


8635 95ED ES PUSH HL spreserver HL 

864 95SBE 2A885A LD HL,(3A88) curseur memoire dans HL 

865 95Ci 7E LD À, (HL) scaractere pointe par HL dans 4 

866 95C2 CDAD9S CALL 9SAD scurseur systeme a position variables 
867 95C5 CDSABE CALL BBSA safficher caractere 

868 95C8 El POF HL srecuperer HL 


869 95C9 C9 RET ; 


æx SOUS-PROGRAMME 352 +#+ 


870 9SCA  CDAD9S CALL 9S5AD scurseur systeme a position variable 
871 9SCD CDSAERE CALL BB8A safficher curseur 
872% 95DQ C9 nhET : 


*x SOUS-FROGRAMME 55 %% 


87:53 9S5D1 601 LD B,0Q1 :B=i pour scrolling vers le haut 
874 9SDES 210100 LD HL,000i :preparer registres 
875 95D6 11164F LD DE,4F16 


876  9SD9 SEGQ LD A,00 : 
877  95DER CDSQEC  CALL BCSQ :scrolling 
878  9SDE C9 RET : 


#**x SOUS-FROGRAMME 354 %% 


879 9SDF 0600 LD E,00 
880 Q9SEL 210100 LD HL,0001 
881 QSE4 11164F LD DE,4F1i6 
86% 9SE7 JEQDO LD À,00 
88:5 9$SE9  CDSOEHC CALL EHCSO 
884 HEC C9 RET 


E=Q pour scrolling vers le bas 
preparer registres 


scrolling 


885 
886 


6868 
869 
890 
2 À A8 
892 
895 
894 
895 


896 


**x GSOUS-FROGRANMME 35 *+% 


95ED 
95EE 
95SEF 
95F 1 
95F2 
9SF3 
95F5 
95F7 
95F8 
95F9 
95SFE 


AF 
ES 
EDS 


XOR A 
PUSH HL 
SEC HL,DE 
FOF HL 
RET Z 

JRC 95F8 
LD A,@i 
RET 

XOR A 

LD A,FF 
RET 


**x SOUS-PFROGRAMME 56 *% 


95FC 
95FE 
9600 
9601 
7604 
9607 
960A 
960 
96@D 
9610 


FEU 
2814 
FS 
211904 
CD7SEER 
SASS3A 
6F 
2600 
CD2496 
ra 


CF 00 
JRZ 9614 
PUSH AF 

LD HL,G419 
CALL BE75 
LD A, (3485) 
LD L,A 

LD H,0@ 
CALL 9624 
FPOF AF 


enlever carry et A=Q 
spreserver HL 


srecuperer HL 

sretour si HL-DE=0 

sreport, alors DE % HL 

DE € HL, indicateur a 1... 
ss... et retour 

DE > HL, enlever carry 
sindicateur a 255... 

5... et retour 


ss 


afficher colonne seule 7? 
soui 

snon, preserver ÀF 
scurseur systeme en (4,25) 
L 

sligne theorique dans À 
spuis dans HL 


] 
saffichage ligne theorique 


srecuperer ÀF 


906 
907 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
92 

o21 


922 


be 
dt 


24 
925 
26 
ET 
928 


9611 
9613 
9614 
9617 
961A 
961D 
961E 
9620 
9623 
9624 
9625 
9627 
9629 
9620 
962D 
962F 


xx EFFACER JUSQU'AU CURSEUR 


963A 
963D 
9640 
9641 
9644 
9645 
9647 


CF Qi 

RET NZ 

LD HL,8A19 
CALL EER7S 
LD A, (3A86) 
LD:LsA 


LD H.00 
CALL 9674 


RET 
RST 24 


LD A,20 
CALL BESA 
RET 


CALL 953 
JP Z,96AC 
PUSH DE 
LD HL, (3ABA) 
XOR A 

SEC HL,DE 
INC HL 


safficher aussi colonne ? 

snon, alors fini 

soui, alors curseur systeme en (10,25) 
s 

scolonne dans À 

spuis dans HL 


saffichage 

sretour de sous-programme 

:* AFFICHAGE 

sadresse bloc de parametres 
saffichage termine... 

:...afficher un blanc supplementaire 
sretour de RESTART 

sadresse KOM 

soctet de selection de la ROM 


LE 


curseur memoire = fin de texte 7 

soui, alors effacer tout 

3DE contient cursr,. memoire, preserver 
sfin de texte dans HL 

senlever carry 

snbre d'octets a transferer (= ot) ds HL 


929 
930 
931 
932 
933 
934 
925 
936 
937 
938 
929 
940 
941 
942 
943 
944 
945 
946 


947 
948 
949 
950 
951 


9648 
9649 
984c 
964D 
9650 
9651 
9652 
9655 
9657 
965A 
965B 
98SE 
9661 
98664 
9667 
9669 
966€ 
966F 


#*x SOUS-PROGRAMME 


9670 
9671 
9675 
9674 
9676 


ES 
1197534 
19 
2284534 
Ci 

ES 
119834 
EDBOQ 
CD8096 
Ei 
CD7096 
219834 
117841 
CD84A94 
3E0i 
CDFC9S 
CDCA9S 
C9 


ES 
36FF 
23 
3E84 
BC 


FUSH HL 
LD DE,5A97 
ADD HL,DE 


spreserver 


snouvelle fin de texte = 


LD (CFA8BA) ,HL :ranger dans placard 


FPOF BC 

EX (SF) ,HL 
LD DE,5A98 
LDIR 

CALL 9680 
FOF HL 
CALL 967 
LD HL,5A98 
LD DE,4178 
CALL 9484 
LD A,01 
CALL 95FC 
CALL 95CA 
RET 


37 ++ 


PUSH HL 

LD CHL),FF 
INC HL 

LD A,84 

CP H 


sH = 


s 
OI 


sot dans EC 
icursr,. 


mem, 


ds HL et nlle f.d.t. 


spreparer DE pour transfert 


stransfert 


smodifier variables 


sfin de texte dans HL 
zone 
:HL pointe dur debut RAM 
*afficher ecran 


snettoyer 


(HL a 


39400) 
(15000) 


(1760 caracteres) 


14999 + ot 


sur pile 


safficher nlile ligne et nlle colonne 


Æs “ss 


:preserver HL 
code espace inutile dans 


afficher curseur 


(CHL) 


:HL sur adresse suivante 


octet fort de 


55400 ”? 


952 9877 20F8 JRNZ 9671 snon, continuer boucle 


953 9679 SE48 LD A,48 soui, et L = octet faible de 55400 ? 
954 967ER HD CP L ; 

955 9670  20QF3 JRNZ 9671 snon, continuer boucle 

956 9687E El POP HL soui, recuperer HL 

957 987F C9 RET set retour 


#*x SOUS-FROGRAMME 26 %+% 


958 9680 ES PUSH HL spreserver HL 

9739 9681 21847A LD HL,7A84 :HL pointe sur placard ligne ecran 

960 9684 IDE LD (HL),02 :ligne ecran = 2 

961 9686 23 INC HL :HL pointe sur placard ligne theorique 
942 9487 Sé6Di LD CHL),01 s:ligne theorique = ji 

96Z 9889 25 INC HL sHL pointe sur placard colonne 

964 968A  S6D1 LD (HL),0i scolonne = 1 


965 9680 219835A LD HL,54A98 :15000 dans HL 

966 968F  2E2885SA LD (35488) ,HL scurseur memoire = 15000 
967 76972: EL POF HL srecuperer HL 

966 969353 C9 RET : 


**x EFFACER À FARTIR DU CURSEUR *+% 


969 9694  CD:5495 CALL 9534 :curseur memoire = fin de texte 7? 
970 96497 C8 RET Z “oui, fini 


971 
972 
973 
974 
975 
976 
977 
978 
979 
980 


987 
988 
989 


9698 EH EX DE,HL 
9699 22BATA LD (3A84) ,HL 
969C CD7096  CALL 9670 
969F EE EX DE,HL 
96AQ BGIiEUZ6 LD RC,OG6EQ 
SOA 19 ADD HL,DE 
9644 EE EX DE,HL 
96AS CDS8A94  CALL 9484 
G6AB CDCA9S  CALL 95CA 
SOAH C9 RET 

*x EFFACER TOUT *+ 

D6AC 21983A LD HL,5A98 
JOAF  Z28A3A LD (3A8A) ,HL 
96H? CD8096  CALL 9689 
96ES ZEOQI LD A,@1 

967 CDFC9S  CALL 95FC 
QGEA C3948E JF 8E94 


sHlef,.d,t,-cursr, mem 


nettoyer zone (CHL a 
1DE=f.d.t.-cursr. mem 


sHLsancienne fin de t 


sDEsancienne f.d.t et HLenlle +f.d.t 


safficher zone (HL) a 
afficher curseur 


119000 dans HL 
sfin de texte = 15000 
«modifier variables 


M. et DE=cusr. 
snlle fin de texte=curseur memoire 


39400) 


. et HL=zcusr., 


exte 


(DE) 


mem « 


mem. 


‘afficher nlle ligne et nlle colonne 


:% VERS INITIALISATIO 


#** RANGER CURSEUR MEMOIRE AVANT EFFACAGE *+* 


96EHD 
96CQ 
96C1 


3AB4SA 
47 
SABESA 


LD A,(3A84) 
LD B,A 
LD A, (3A86) 


sligne ecran dans À 
spuis dans E 
scolonne dans À 


N 


990 96C4 ZA883SA LD HL, (3488) curseur memoire dans HL 


991 94C7 SD DEC À sdecrementer colonne 

992 96C8 2803 JRZ 96CD ssaut si © 

995 96CA 2H DEC HL. Sinon, decrementer curseur memoire... 
994 G6CER 18FA JR 96C7 ;... et continuer boucle 

995 Q6CD SEUZ LD A,02 ‘ligne ecran = 2 7 

996 9GCF  E8 CF E . 

997 96DQ 2004 JRNZ 96D6 non, continuer 


77e 96DZ 22823TA LD (3482) ,HL scrsr. mem. corresp. a debut page/ranger 
999 98D5 C9 RET ; 


1000 96D6 @S DEC KE :ligne ecran —1... 
1001 96D7 SESI LD 4,51 «donc colonne passe a 81 
100? 96D9 18EC UR 9607 boucler 


xx REAFFICHAGE DE L'ECRAN #% 


100% 96GDEH TFABA4SA LD A,(3:A84) :ligne ecran dans A 


1004 98DE FS FUSH 4F ranger 

1005 96DF  SABGSA LD À, C5A86) colonne dans A 

10064 GER FS PUSH AF “ranger 

1007 PéE% SEUI LD A,ui scolonne = ji 

1008 96ES 3286TA LD (TA86) ,A  : 

1009 96E8 TSEDZ LD A,02 sligne ecran = 2 

101Q 96EA S2845SA LD (C35AG4),A  : 

1Qii 9éED Z2ABZSA LD HL, (CSIAB2) recuperer curseur memoire 
1012 96FQ ES FUSH HL ranger 


1015 96F1 11E006 LD DE,06E0 sHLecurseur memoire+DE (+1760) 


1014 
115 
iüié 
1017 
1018 
1019 
1020 
1Q=1 
1022 


1025 
1024 
1025 


1026 
1027 


géF4 19 ADD HL,DE ; 


96FS5 ER EX DE,HL :DEscurseur memoire+1760 
96F6 El POF-AL. sHLecurseur memoire 

96F7 CD8A94 CALL 948A safficher zone (HL) a (DE) 
98FA Fi FPOF 4F srecuperer colonne L 
9EFR S2865A LD (5A8S6) ,A  sranger dans placard 

QGFE Fi FPOF AF srecuperer ligne ecran 
90FF  S52843A LD (3484) ,4  sranger dans placard 

9702 CDCA9S CALL 9S5CA safficher curseur 


#*x NETTOYAGE COMFLET DE LA RAM *+ 


9706 2197835A LD HL,5498 115000 dans HL 
9709 CD7096 CALL 9670 snettoyer zone (HL a 39400) 
97@C C9 RET : 


#+x AFFICHAGE ECRAN AFKES CHARGEMENT D'UN TEXTE %+% 


970D CD80976 CALL 9680 smodifier variables 
9710 CSSE96 FF 765E 5# SAUT EN LIGNE 940 


HOHHOROHOHOMOMHEOHE HD HE HE DEEE DEEE DE DE DEEE DEEE DEEE EDEN 
LLRLRERELELLLLLLLLLLLLLLILELSLLLLLLLLILZZ., 


1R:E 
129 
10:02 


1QE 1 
LOS 
LOS 
LA E4 
LOS 
LA 
1QE7 
LD: 
1: 
1@4+à 
1041 
1 ét: 
LA 
LG 
LAS 
LOété 


Q7SE 
9761 
QYÈE 


XX {À [" [” 
9764 
9767 
9764 
D7OE 


9771 
5774 
777 
97 
977E 
977 
Y77E 
(D 
3761 
D7ER 


NETTOYAGE DU BUFFER 


CD1BRE 
SOPE 
C9 


LCHE 


(0634 7 
ANAL 9 7 
47 
AE 7 
F3 
sé 
LLAE" 7 
CD 7 
[st 
COHELPT 
EN 
FE 
LE 

FE (ét 


: CALL 


FAECTTE 


EE LE 
JRE YYSE 


RET 


LALL 9764 
LD À, (9741) 
LL) 4, à 

LD) À, (974%) 
CFE 

JANE 9777 
ALL. 97A8 
ue 70% 
PUSH KL 
CALL SYET 
ÉCE El. 

CE QI 

MST 2 

LE Qi 

MET. € 

JF 976 


CLAVIER 


D LINE: 


disponible 7? 
interroger 


 COULME 
IOUL, alors 
nom, fini 


PADE OPÉECIPFIES 


SORTIE 
cam s 


: Lranstormer 
snumero lLere paue 
HDULS dans 
“bpage actuelle 
“PAGE 
NON 
Oui, restaurer 
te VERS OORTIE 
HDI ES EF VE FUME C) 
appeler  GORTIE 
HI GC UD GE ET FUME" C) 
affichage termine 
SOUS ÆATTE 
ttin de texte 
oui, fini 
“boucler 


clans À 


EC FAN 
Lere 


Ler"e 


UN 


a LE EL mt e 


ÉCRAN 


‘SORTIE 


ÉCRAN * 


A MOUV ES AU 


EN 
fà 


ECRAN 


[3 à CE 
COMME 
F3 A CIE 


S[) 


aGtuel Lepage sSpecifiee 7? 


LU 


[2 


1047 
1046 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1056 
1059 
1060 
1061 
106% 
1065 
1064 
1085 
1066 
1067 
1068 
1069 
1070 


#*x GSOUS-FKOGRKAMME 


9784 
9787 
9789 
9780 
978E 
9791 
9792 
9795 
9794 
9795 
9796 
9797 
9794 
979E 
9790 
979D 
979E 
979F 
9742 
9745 
9744 
9705 
9706 
97A7 


215998 
5609 
21D997 
3609 
218498 
AF 

FA 


DE 


des vont 


17 


Ge Er. 
Pt | 


77 
213594 
17. 


DE 
do nt 


77 


mr 
du ‘et 


77 
2160@9A 
17 


+ 


do ot 


ré 
25 


77 
C9 


9 k% 


LD HL,9859 
LD. (HL) ,C9 
LD HL,97D9 
LD (HL),C9 
LD HL,9884 
XOR A 

LD (HL),A 

INC HL 

LD (CHL),A 

INC HL 

LD (HL),A 

LD HL,9A33 
LD (CHL),A 

INC HL 

LD (CHL),A 

INC HL 

LD (HL),A 

LD HL,9460 
LD (HL),A 

INC HL 

LD (HL),A 

INC HL 

LD (HL),A 

RET 


ro 


S 
D 
2 


SG 


S 


Q S S 


OS S 


"SE ‘ÆX ‘2S ‘AL ‘LE ‘SU “AN “AR “L2 ‘AR LE “ZX ‘LAS “AZ “LS “£R ‘LL “AN “LZ “ER “22 “2L “£= ‘2x 


4C9 


en 


en 


en 


en 


en 


en : 


en 


en . 


#C9 en 39001 


en 28875 


39044 


29045 


59046 


39475 


29476 


1071 
1072 
1073 
1874 
1075 
1076 
1077 
1078 
1079 
1080 
io8i 
1082 
1085 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 


#x SOUS-PROGRAMME 


97A8 
974E 
97AD 
97E0 
97E2 
97B5 
97B7 
97E8 
97BA 
97BE 
97ED 
97C0 
97C2 
97C3 
97C5 
97C6 
97C8 
Q7CE 
97CD 
97CE 
97D0 
97Di 
97D3 


215998 
S6FS 
21D997 
36CD 
218498 
3S6CD 
25 
S6S5A 


DT 
CR 


S6BE 
213394 
F6CD 
5654 
S6BE 
21609A 
36CD 


S6SA 


DT 
dt 


3SGRE 
C9 


40 *+% 


LD HL,9859 


LD CHL),FS 
LD HL,97D9 
LD (HL),CD 
LD HL,9884 
LD (HL),CD 
INC HL 

LD (HL),54A 
INC HL 

LD CHL) ,BE 
LD HL,9A33 
LD (CHL),CD 
INC HL 

LD CHL),5A 
INC HL 

LD (HL),ER 
LD HL,9469 
LD (HL),CD 
INC HL 

LD (CHL),54 
INC HL. 


LD CHL),BE 
RET 


22E C2 “RS “39 “2x TN EE “OR “22 “SE “£X “Rx “ES “2 “ax ‘28 “£= “ns ‘21: “su -zx “su “es 


x 


*X 


*k 


*X 


RESTAURER SOUS-PROGRAMME 44 
RESTAURER ‘SORTIE ECRAN' 


RESTAURER SOUS-PROGRAMME 45 


RESTAURER SOUS-FRKOGRAMME 55 


*+x SORTIE ECRAN *#+# 


1094 97D9 CDIEEHE CALL BRIE sinterrogation clavier 

1095 97DC SOFE JRNC 97D9 aucune touche pressee, reinterroger 
1096 97DE FESE CF SE ‘petite touche ENTER ? 

1097 97E0 CB RET ‘Z Oui, fini 

1098 97Ei SASESA LD À, (ASE) “parametre ‘marge haute’ dans À 

1099 97E4 FEUG CF 00 *egal a 0 7? 

1100 97E6 2809 UNz: Q7F2 oui 

1101 97E8 47 LD EH,A “non, alors marge haute dans E 

1102 97E9 CD4A98 CALL 9844 seffectuer EH sauts de ligne 

1103 97EC Z21E697 LD HL,97E6 smettre hors service partie ‘marge haute 
1104 97EF S618 LD (HL),18 : 

1105 97F1 CDSD98 CALL S98SD scalculer nbre caracteres par ligne 

1106 97F4 CD2F98 CALL 982F scurseur systeme en fonction marge gauche 
1107 97F7 ZA4597 LD HL,(9745) s:adresse ligne actuelle dans HL 

1108 97FA ES FUSH HL spreserver 

1109 97FE CDD298 CALL 98D2 scalculer nbre de mots et nbre de lettres 
1110 97FE 224797 LD (9747) ,HL s adresse prochaine ligne en (58727) 

1111 9801 Ei POF HL srecuperer adresse ligne actuelle 

11i2 9802 FEU6 CF D6 smot trop long pour les marges 7? 

1113 9804 2006 JRNZ 980QC sinon 

1114 9806 SEOI LD A,0Qi soui, mettre semaphore 

1115 9808 S524D97 LD (974D),A : 

1116 980B C9 RET sfini 

1117 98QC FEOQI CF Qi splus rien a faire ? 

1118 980E CB RET Z snon, alors fini 


1117 
1120 
Let 
1122 
1123 
112 

1125 
1126 
1127 
1128 
1129 
11:50 


1131 
1152 
1133 
1154 
1155 
115 

1157 
1150 


980F 
9811 
9813 
9816 
9618 
9819 
981EH 
JO1E 
9821 
9824 
96827 
982A 


#**x SOUS-FROGRAMME 41 %% 


982F 
9820 
9835 
98:34 
9837 
9838 
983E 
9820 


FEUZ 
2806 
CODF99 
FEU4 
Ce 
2601 
CD4A98 
CD9C98 
CDAD98 
244797 
224597 
18AD 


ES 


TABCIA 


CF Q2z 


JRZ 9819 
CALL 99DF 


CF 04 
RET 2 


LD E,Qi 

CALL 9844 
CALL 9890 
CALL 98AD 

LD HL,(9747) 
LD (9745) ,HL 
JR 97D9 


FUSH HL 
LD A,(3A8C) 


LD H,A 


LD A,(9749) 


LD L,A 


CALL EKH7S 


FOF HL 
RET 


ssSimple saut de ligne 7? 

*QUi 

non, sortir ligne 

«fin de texte atteinte 7? 

‘oui, alors fini 

:simple saut de ligne: 1 dans E 

sauter B lignes 

ssi interligne=2, sauter encore i ligne 
‘sauter eventuelles lignes c.d.c. 
‘adresse prochaine ligne dans HL 
:prochaine ligne devient ligne actuelle 
sreprendre 


:preserver HL 

smarge gauche dans À 

“puis dans H 

ligne ecran dans À 

puis dans L 

“positionner curseur systeme en (H,L) 
srecuperer HL 


# 
ol 


**x SOUS-FROGRAMME 42 %% 


1159 9S8SD SASCEA LD À,(3A8C) smarge gauche dans À 


1140 9840 47 LD B,A spuis dans K 

1141 9841 ZABDIA LD À, (SA8D) smarge droite dans À 

11472 9844 90 SUE R smarge droite-marge gauche dans À 

1145 9845 SC INC À snombre de caracteres par ligne dans À 
1144 98464 3524A97 LD (974À),4  ;ranger 

1145 9849 C9 RET s 


xx SOUS-FROGRAMME 45 %% 


1146 984A ES FUSH HL spreserver registres 

1147 SS4R F5 FUSH AF s 

1148 984C CS PUSH BC 8 

1149 984D CD5998 CALL 9859 passer a la ligne suivante 

1150 9850 CD7298 CALL 9872 sdecrementer compteur de lignes 

1151 995$ Ci FOF BC srecuperer KC 

1152 9854 10F6 DJNZ 984C ssi B <> O ,boucler (B=nbre lign. a sauter) 
1153 9856 F1 POP AF srecuperer registres 

1154 9857 El POP HL 


1155 9858 C9 RET 


1156 
1157 
1156 
1159 
1160 
1161 
1162 
1165 
1164 
116$ 
1166 
1167 
1168 
1167 
1170 
1174 


1172 
its 
1174 
1175 
1176 


#x SOUS-FROGRAMME 44 %x% 


9859 
98SA 
985D 
98$E 
9860 
9862 
9865 
9864 
9865 
9868 
9869 
986A 
986 
986D 
9870 
9871 


FS 
344997 
SC 
FE18 
200H 


FUSH 4F 

LD A,(9749) 
INC A 

CF 18 

JRNZ 986D 
PUSH HL 
FUSH EC 
FUSH DE 
CALL 9S5Di 
FOP DE 

FOF BC 

POP HL 

LD A,17 

LD (9749) ,A 
FOF AF 

RET 


#x SOUS-PFROGRAMME 45 %+% 


9872 
9875 
9876 
9877 
987A 


214497 
35 
ca 
SA4997 
&F 


LD HL,9744 
DEC (HL) 
RET NZ 

LD 4,(9749) 
LD Là 


s:preserver ÀF 
snumero ligne ecran actuelle dans A 
sligne ecran + 1 


ligne ecran = 24 7 
non 
soui, alors preserver registres... 


-..Sscrolling ecran vers le haut... 
.. .recuperer registres... 


Æ “25 “23 ‘2x “2x ‘se 


1...et ligne ecran=2s 
sranger nouvelle ligne ecran 
srecuperer À 


u 
“ 


sHL pointe sur compteur de lignes 
compteur de ligne -i 

:Ssi compteur #5 Q, alors fini 
slLigne ecran actuelle dans À 
“puis dans L 


1177 
1178 
1179 
1180 
1181 
1182 
1185 
1184 
1185 
1186 
1187 
1188 
1189 
1190 


1171 
1192 
1195 
1194 
1195 
1196 
1197 
1198 
1199 
1200 


987E 
987D 
9880 
9882 
9884 
9887 
9889 


988C 
988F 


9892 
989$ 
9897 
989A 
989E 


2602 
CD75BE 
Gb4AE 
SE2D 
CDSABE 
10FE 
CD5998 
TA9OSA 
324497 
21E697 
3628 
214297 
34 

c9 


LD H,0® 
CALL EE75 
LD B,4E 

LD 4,2D 
CALL BESA 
DINZ 9884 
CALL 9859 
LD A. (3A90Q) 
LD (9744),4 
LD HL,97E6 
LD (HL),28 
LD HL,9742 
INC (CHL) 
RET 


**x SOUS-PROGRAMME 46 #+% 


989C 
989D 
98A0 
98A2 
98A4 
98A5 
98A6 
98A8 
98AB 
98AC 


FS 
SA8F3A 
FEU2 
2802 


FUSH AF 

LD A, (3A8F) 
CF 02 

JRZ 9846 
FOF AF 

RET 

LD E,@i 
CALL 9844 
FOF AF 

RET 


: positionner curseur systeme en (H,L) 
:# ECRIRE LIGNE FOINTILLES(78 fois code 45) 


passer a la ligne suivante 
restaurer compteur de lignes 


ZT “an ‘ER ‘ES ‘25 “2x ‘ss 


sdeverouiller ‘marge haute’ 


numero de page + li 


spreserver ÀF 
sparametre ‘interligne’ 


= 2 7 


dans À 
sOoUi 


snon, alors recuperer À et retour 


n 
pi 
[es 
[a 
D 
7 
[es 
= | 
m 
re 
H 
Fe] 
2 
m 


recuper À et retour 


de SORTIE ECKRAN 


1201 
1202 
1205 
1204 
1205 
1206 
1207 
1:06 
1209 
1210 
1211 
1212 


12135 


1214 
1215 
1216 
LRIT 
1218 
1217 
1220 


1221 


**x SOUS-FROGRAMME 47 #% 


98AD 
98E0Q 
GR 
98R35 
968H4 
98E7 
98KR9 
98EHR 
78HE 
98C0Q 
98C5 
98C4 
9807 


SA4S97 
FEUQ 


LD A,(9743) 
CF 00 

RET Z 

LD B,A 

LD A,(9740@) 
CF Qi 

JRZ 98C0Q 
CALL 9844 
JR 98C3 
CALL 9B3SF 
XOR A 

LD (9743),4 
RET 


**x SOUS-FROGRAMME 48 *% 


98D2 
98D$S 
98D8 
98D9 
98DC 
78DE 
98E0 
F76E1 


2120200 
ZA4A97 
97 
CDDA99 
FEFF 
Z80A 
AF 

LS TS) 


LD EC,0000 
LD A,(974A) 
LD D,A 
CALL 99D@ 
CF FF 

JRZ 98EA 
XOR A 

CF E 


snombre de lignes a sauter dans A 


s= 0 ? 


sOUi;: 


retour immediat 


s:nombre de lignes dans E 
snumero du peripherique dans À 


= 1 7 


po] 
sOUis; 


alors vers partie imprimante 


sauter R lignes ecran 
svers fin commune 

ssauter E lignes imprimante 
sremettre placard 358725 «a 0 


:& et C a © 


snombre de caracteres par ligne dans À 


spuis dans D 
sHL = 


0 3 
[8] 
3 


Ui 


et nombre de mots 


(compteur general) 


a fin de texte 7? 


(H)= Q 7 


ra rar 
es dues dou 


1225 


122 
Eu dm 
1225 
1226 
FAT 
dun en 


mr 
En dus 


1229 
1250 
123 

1252 


1255 


12:54 
1235 
1256 
1237 


mm 
PA, 


1239 
1:40 
1241 
124% 
1245 
1244 
1245 
1246 
1247 
1:46 


9BE? 
98E4 
98E6 
98E7 
98E9 
98EA 
98EC 
9B8ED 
98EF 
98FO 
98F2 
98F4 
98F5 
S8F7 
98F6 
98FA 
98FC 
98FD 
98FF 
9902 
9904 
9906 
9907 
9929 
9904 
990E 
9900 


2002 
SEQ I 


“EQ4 
C9 
SEX20 


2005 
18E7 
SEFF 
RE 

2005 
18DF 
SEFI 


2005 
CD3999 
18D5 
SEF2 


200R 
AF 
B8 


2005 


JRNZ 96E7 
LD A,@1 
RET 

LD A,@4 
RET 

LD 4,20 
CF (HL) 
JRNZ 98F2 
INC HL 

JR 98D9 
LD A,FF 
CF (CHL) 
JRNZ 968FA 
INC HL 

JR 98D9 
LD A,Fi 
CF CHL) 
JRNZ 9904 
CALL 9939 
JR 98D9 
LD A,F2 
CF (CHL) 
JRNZ 9914 
INC HL 
XOR A 

CP E 

JRNZ 9911 


non 
soui, signal 1 dans À et retour 


signal 4 dans À et retour 


* IGNORER ESFAC,. 


“ 
4 
“ 
ol 
” 
# 
. 
ol 
0] 
4 
" 
ni 
“ 
L] 
“ 
4 
” 
J 
" 
ol 
“ 
“ 
“ 
L 


:* CODE DE CONTROLE 7? 


non 

Oui, executer... 
5...et continuer 

5* FIN DE PARAGRAFHE 7? 


non 


soui, pointer HL sur adresse suivante 


snombre de mots (B)= Q ? 


snon 


INUT. ET ESPFAC. BLCS 


1749 990E JE0Z LD A,02 sOUi 2 

a sus , | , alors signal 2 dans À et retour 
1251 9611 SEUZ LD 4,05 non i as 

RDS Lu ; , alors signal 5 dans À et retour 
1255 9914 ES FUSH HL :* FAS ESPACE BLANC, NI ESFACE INUTILE. 
1254 9915 CS FUSH RC :NI CODE DE CTRL, NI FIN FARAGR. ... a 
1255 9916 DS FUSH DE : ALORS CARACT,. / PRE SERVER REGISTRES 
1256 9917 CD9299 CALL 9992 simot correspondant entre-t-il ds ligne? 
1257 991A FEI CP Qi smot trop long 7? | 
1258 991C 200$ JRNZ 9925 non 

1259 991E Di FOF DE oui, recuperer registres... 

1260 991F Ci FOF BC É 

1761 9920 El FOF HL $ 

176? 9921 1800 JR 992F 1... et saut 

12635 9923 ÀF XOK A compteur general (D)=0Q 7? 

1264 9924 KA CF D É 

1265 9925 2805 JKZ 992C *OUi 

1268 9927 FI FOF 4F snon, nettoyer pile... 

1267 9928 Fi FOF AF 8 

1268 9929 Fi FOF AF : 

12769 9924  18AD JK 98D9 5... et continuer 

1270 992C Fi POF AF oui, nettoyer pile 

1271 992D Fi POF AF : 

1272 9926 Fi FOF AF : 

1275 992F 4F XOR À snombre de mots (B)=0 "%* 

1274 9950 B8 CF'E : 

1275 9931 2803 JKZ 9956 soui, alors signal 6 dans À et retour 


1276 
1277 
1278 
1277 


1260 
1281 
1282 
1285 
1264 
1285 
1286 
1287 
1288 
12689 
1:90 
Le7i 
1292 
129% 
1294 
1274 
1296 
1297 
1298 


9935 
9935 
9936 
9938 


SEOS 
C9 
3E06 
C9 


LD A,05 
RET 
LD A,06 
RET 


xx SOUS-FROGKRANME 49 x+% 


9959 
9934 
993B 
9930 
995D 
993E 
9940 
9941 
9943 
9944 
9945 
9946 
9948 
9944 
994E 
9940 
994E 
994F 
9950 


ES 
DS 
CS 
FS 
23 
SESO 
BE 
2045 


FUSH HL 
FUSH DE 
FUSH BC 
FUSH AF 
INC HL 

LD A,:Q@ 
CP (HL) 
JRNZ 9988 
INC HL 
INC HL 

LD A, (HL) 
SUE 30 

LD R,09 
LD C.,A 
ADD A,C 
DJNZ 9948 
LD B,A 
INC HL 

LD A, (HL) 


sinon, alors signal 5 dans À et retour 


preserver registres 


: HL pointe sur ler code ASCII 
s= © © (code ASCII de Q=8&50) 
:nONn , alors ignorer 

:HL pointe sur 3eme code ASCII 


:code ASCII dans A 
svaleur correspondante ds A 
:*# MULTIFLIER CETTE VALEUR FAK 10 


£ “en “ss ‘es “ss 


resultat dans RE 
sHL pointe sur 4eme code ASCII 
scode ASCII dans A 


1299 
1500 
1301 
150% 
1:05 
1:04 
15:05 
1506 
1507 
1:08 
1:09 
1510 
111 
1512 
13513 
1514 
1515 
1516 
1517 
1:16 
1519 
1520 
1521 


D ns La) 
tt de dns 


1323 
1324 
1:25 


nt che Ve 


9951 
9955 
9954 
9955 
9956 
9957 
9958 
995A 
995C 
995E 
9960 
998Z 
9964 
9965 
9966 
9967 
9969 
996K 
996C 
996F 
9971 
9972 
9975 
9976 
9977 
9979 
997E 


SUR 30 
ADD A,E 

LD C.A 

DEC HL 

DEC HL 

LD A, (HL) 
CF 3i 

JRZ 9981 

CF 32 

JRZ 9971 

LD A, (3A8C) 
LD E,4 

INC E 

LD AE 

SUE E 

CF OF 

JRC 9988 
LD A,C 

LD (3A8D),A 
JR 9988 

LD B,C 

LD A, (3ABD) 
INC A 

SUE E 

CF GF 

JRC 9988 
LD A,C 


svaleur correspondante dans 4 
sunites plus dizaines dans 4 
spreserver provisoirement dans C 
:HL pointe sur Zeme code ASCII 


LI 
“ 


‘code ASCII dans À 
scode de saut de ligne 7? 


soui 
snon, 
QUI 


alors code de marge gauche 


:* NON, DONC MARGE DROITE / MARGE DROITE 


: MOINS MARGE GAUCHE + 1 


“ 
: 
à 
“ 
snon, 
soul, 


non, 
sou » 


sets 


vers fin commune 


alors nouvelle marge droite dans À... 
ess rANOer xs 
1...et vers fin commune 


* MARGE DROITE-MARGE GAUCHE+I = 


vers fin commune 
alors nouvelle marge gauche 


dans À... 


1341 
1747 
1343 
1744 
1345 
1746 
1747 
1748 


9970 
997F 
9981 
9984 
9985 
9988 
9989 
998A 
998E 
9980 
998D 
998E 
998F 
9990 
9991 


C9 


LD (3A8C) ,A 
JR 9988 

LD A,(9743) 
ADD A,C 

LD (9745) ,A 
FOF AF 

FOF BC 

FOF DE 

FOF HL 

INC HL 

INC HL 

INC HL 

INC HL 

INC HL 

RET 


**x SOUS-FROGRAMME 50 %+% 


9992 
9993 
9994 
9996 
9997 


9998 
9999 


9994 


@4 
15 
1814 
23 
QC 
15 
7E 
FEFF 


INC E 
DEC D 

JR 9944 
INC HL 
INC C 
DEC D 

LD À, (HL) 
CP FF 


Ses. MANTEF « « » 
1..,et vers fin commune 
:compteur saut de ligne dans À 
;+ nouveaux sauts de ligne 
ranger 

recuperer registres 


pointer HL sur octet apres code de ctril. 


D 
4 
. 
dl 
4 
LI 
ol 
LI 
M 
LI 
Ed 


fini 


:compteur de mots + 1 
s:compteur general -— ji 


: HL pointe sur adresse suivante 
s:compteur de lettres + 1 
compteur general — ji 


:HL pointe sur espace inutile ? 


1349 999C 2818 JRZ 99B6 soui alors mot termine, vers fin commune 


1:5Q 999E FEZQ CF 20 :HL pointe sur espace blanc ? 

1:51 9940 2814 JKZ 99KH6 soui alors mot termine, vers fin commune 
1352 9942 FEFI1 CP F1 :HL pointe sur code de controle 7? 

135% 9944 2810 JRZ 99BR6 soui alors mot termine, vers fin commune 
1:54 9946 FEF2 CP: F2 :HL pointe sur fin de paragraphe 7? 

1355 9948 26807 JRZ 99Bi soui alors mot termine, vers fin speciale 
1:56 99AÀ ÀF XOK A smot non termine / compteur general=:0 ? 
1:57 99AB EA CP D ; 

1358 99AC Z20E8 JRNZ 9996 non, continuer 

1359 99AE SEDI LD A,0i soui, signal mot trop long dans À... 
1:60 99EQ C9 RET 1...-et retour 

1361 99EB1 ÀF XOR À smot termine / compteur gal=Q 7? 

1567 99EZ BA CF D : 

1365 99H73 2001 JRNZ 99KR6 non 

1:64 99E5 25 INC HL soui, alors eviter fin de paragraphe 
1365 99E6  ÀF XOK A ssSignal mot pas trop long dans À... 

1:66 99H7 C9 RET set retour 


xx SOUS-PROGRAMME SL %% 


1:67 99E8 ES FUSH HL :preserver HL 

1:68 9989 SA4A97 LD A,(9748) :nombre de caracteres par ligne dans À 
1569 99EC 91 SUR C snombre total de blancs dans À 

1370 99ED 6F LD L,A spuis dans HL 


1371 99BE 2600 LD H,00 : 


1572 
1575 
1574 
13575 
1576 
Lot 
1376 
1977 
1:80 


1:81 
1582 
15685 
1:84 


1585 


1586 
1587 
1588 
1589 
1390 


99C0 
9901 
99C3 
99C4 
9907 
99CA 
99CE 
99CE 
99CF 


48 
0600 
@D 
CD7C91 
S24R97 
7D 
S24097 
E2 

C9 


LD C,E 
LD B,00 

DEC C 

CALL 917C 
LD (974B),A 
LD A,L 

LD (9740) ,A 
POF HL 

RET 


#*x*x SOUS-PROGRAMME 52 %% 


99D0 
99D1 
99D5 
99D8 
99D9 


DS 
EDSBB8ASA 
CDED9S 
Di 

C9 


FUSH DE 


LD DE, (35AGA) 


CALL 9SED 
Por -DE 
RET 


**x SOUS-PROGRAMME S3S *% 


99DF 


79E0 


Q9EL 
99ES 
99E5 


F5 
78 
FEQI 
2005 
F1 


PUSH AF 
LD A,B 

CF ai 
JRNZ 99E8 
POP AF 


snombre de mots-1i dans BC 

sdivision HL/KHC 

sranger nombre de blancs entre chaque mot 
snombre de blancs en plus dans A 

ranger 

recuperer HL 


# 


spreserver DE 

sfin de texte dans HL 
scomparer HL et DE 
srecuperer DE 


spreserver ÀF 

snombre de mots dans A 
si seul mot 7? 

snon 

soui 


141% 
1415 


99E6 
99E8 
99E9 
99EB 
99ED 
Q9EE 
99F1 
99F4 
99F5 
99Fé6 
99F7 
99Fe 
99FS 
99FA 
99FD 
99FF 
GAQ2 
SAGE 
AB 
SAR 
SAGA 


180E 
Fi 
FEQS 
2009 
F5 
CDE899 
CDOB9A 
Fi 

C9 

F5 

79 

80 

3D 
324497 
3EQi 
324897 
AF 
324097 
CDGE9A 
Fi 

C9 


JR 99F6 
POP AF 

CF 05 

JRNZ 99F6 
PUSH AF 
CALL 99B8 
CALL 9AGE 
POF AF 

RET 

PUSH AF 

ÉD A6 

ADD A,B 

DEC A 

LD (9744),A 
LD A,01 

LD (974) ,A 
XOR A 

LD (9740) ,4 


CALL SAGE 
FOF AF 
RET 


#*x GSOUS-FROGRAMME 54 %% 


AG 
SAGE: 


4897 


47 


LD A,(9744) 
LD E,A 


srecuperer AF 

ligne normale ? 

non 

:QUi, preserver AF 

:calculer nbre de blancs entre chaque mot 
:sortir ligne 

srecuperer À 

“fini 

si seul mot, ou ligne se termine par... 
sf.d.t., où fin paragraphes donc... 

snbre de caract. par ligne=nbre lettres... 
+ nombre mots — 1 , nombre de blancs... 
entre chaque mot=il, et blancs... 

: supplementaires=0 


ÆS “22 “SX “22 “sn 


sortir ligne ecran 
recuperer ÀF 


:nombre de caracteres par ligne dans À 
puis dans K 


1414 
1415 
1416 
1417 
1416 
1419 
1420 
1421 
142% 
14225 
1424 
1425 
1426 
1427 
1426 
1479 


1450 
1451 
1452 
1455 
1454 
1455 
1456 


9AQF 
GA1Q 
9A12 
GA14 
GAS 
SA17 
SAIS 
SALE 
9A1C 
SALE 
GAZ 

JAZE 
SA2S 
GA27 
SA2A 
GAZE 


7E 
FEFF 
2003 


Par 
Pape) 


18F8 
FE20 
200% 


PAT, 
den tt 


18F1 
FEI 
200$ 
CD689À 
18E8 
CDED9A 
C8 
1962 


LD À, (HL) 
CF FF 
JRNZ 9A17 
INC HL 

JR 9AQF 
CF 20 
JRNZ 9AIE 
INC HL 

JR 9A0F 
CP Fi 
JRNZ 9A27 
CALL 9A68 
JR 9A0F 
CALL 9A2D 
RET Z 

JR 9AGF 


**x SOUS-FROGRAMME 55 *%% 


SAZD 
SA2F 
9AT1 
SAIS 
JAT6 
9AZ7 
9AZB 


FEFS 
200% 
3E20 
CDSABE 
QS 

C6 

25 


CP F3 
JRNZ 9AS3 
LD A,20 
CALL EBSA 
DEC BE 

RET Z 

INC HL 


* IGNORER ESPACES INUTILES 


* IGNORER ESFACES BLANCS 


"22 ‘2 ‘2S ‘LL “22 “22 “22 “23 


eo 


ani l'un ni l'autre, alors c.d.c 
sinon 

souUi, alors executer si canal imprimante... 
set continuer 

scaract. trouve, afficher mot correspondant 
:Si compteur general=Q, alors fini... 
sinon continuer 


” 


espace force 7 
snon 

oui, alors code espace dans A 
safficher caractere 

‘decrementer compteur general 
sretour si Q@ 

spointer HL sur caractere suivant 


1437 
1458 
1459 
1440 
1441 
1442 
1443 
‘1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 


9AZ9 
QAGA 
ASC 
QASE 
9A40 
9A42 
9A44 
9446 
9A49 
9A4A 
AAC 
9A4F 
9450 
9A51 
ASE 


_ 7AS6 


9AS8 
JASA 
GASE 
QASE 
FA6Q 
AGE 
9464 
A6 
9A67 


za@F9 
3A4C97 
FEDQ 
280À 
D 
324097 
3E20 
CDSAEE 
AS 
SEQI 
SC 

C9 


LD À, CHL) 
CF Fi 

JRZ 9A46 
CP FF 

JRZ 9A46 
CF 20 

JRNZ 9A2D 
LD A,(974R) 
ED-D,A 

LD A,270 
CALL EESA 
DEC E 

DEC D 

JRNZ 9A4C 
LD A,(9740) 
CF 0 

JRZ 9464 
DEC A 

LD (974C),A 
LD A,20 
CALL BESA 
DEC E 

LD A,@1 

INC A 

RET 


scaractere dans À 


code de controle ? 
OUI, alors mot termine 


‘espace inuti 


ioui, alors mot termine 


espace blanc 


non, alors mot pas termine, 
snombre de blancs entre chaque mot dans À 


spuis dans D 
icode espace 
afficher un 
sdecrementer 
:decrementer 


‘afficher blancs jusqu'a ce que compteur=0 
:blancs supplementaires a repartir dans À 


= À 7 


Qui 


snon, decrementer compteur de bles suppl. 


“ranger... 


set afficher un blanc 


‘decrementer compteur general 
l'indicateur 2Z 


rendre +faux 
‘ 
set retour 


le 7 


7 


dans À 
blanc 


compteur general 


continuer 


compteur de blancs 


1467 
1465 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1475 
1474 
1475 
1476 
1477 
1478 
1479 
1480 


#**x SOUS-PFROGKAMME 56 %*% 


9A68B 
9A69 
FAGA 
AGE 
QAGE 
9470 
QA7E 
JA7S 
9474 
9A76 
9A79 
9A7A 
GATE 
9A7C 
9A7D 
QA7E 
9A7F 
9A80 
9A81 


ES 

DS 

CS 
344097 
FEQI 
2007 
Az 
FES1 
CCDF9E 
C1 

Di 

Ei 


ux 4 
25 


Gnh4 
Et 


MT 
é— 
2 

t 
DT 
FR 


C9 


PUSH HL 
FUSH DE 
FUSH RC 

LD A,(9740) 
CF Qi 

JRNZ 9A79 
INC HL 

LD À, CHL) 
CF 3i 

CALL Z,9EBDF 
FOF EC 

FOF DE 

FPOF HL 

INC HL 

INC HL 

INC HL 

INC HL. 

INC HL 

RET 


spreserver registres 

8 

s 

snumero canal dans À 

simprimante 7? 

non 

OUI, pointer HL sur lere valeur du c,.d,c,. 
svaleur dans À 

se 1 7 (code ASCII de 1=%51) 

Si oùUi, executer code de controle 
recuperer registres 


1] == -£z 


pointer HL sur octet apres c.d.c. 


“22 “22 “an “se “se 


RE SE ES LL SSL EL LL LES LL LL ES LE LL SSL LL LLLSL TZ. 
EE SL SL EL LL LE LE LL LL LLLLL LL LS: 


xx IMPRIMER À FARTIR D'UNE FAGE SFECIFIEE *+% 


1481 S9ASZ CDE29A CALL 9AB2 stransformer ‘SORTIE IMPRIMANTE’ en sp 
1482 DA9S 3zA4197 LD ÀA,(9741) ;numero iere page dans À 

1485 9A9S 47 LD E,A spuis dans KE 

1484 9A99  SA4297 LD À,(9742) page actuelle dans A 

1485 9A9SC  E8 CP E page actuelle=page specifiee 7 

1486 SGASD 2006 JRNZ 9AAS snon 

1487 S9A9F  CDCS59A CALL SACS soui, restaurer ‘SORTIE IMPRIMANTE‘ 
1484 JAAZ CIDASA JF 9ADA :*% VERS SORTIE IMFRIMANTE 

1489  9GAAS CS PUSH EC ypreserver numero lere page 

149 9AA& CDEUSA CALL 9AEQ sappeler ‘SORTIE IMPRIMANTE’ comme un sp 
1491  9AAS Ci POF BC recuperer numero lere page 

1492  SAAA FEQI CF Qi *:impression terminee 7? 

1495  9AAC C8 NET .Z oui, fini 

1494  SGAAD FEU4 CF @4 sfin de texte atteinte 7 

1495 9AAF C8 RET 2Z soUui, fini 

1496  SAHQ 1i8E7 JR 9499 snon, boucler 


** SOUS-FROGRAMME 57 #%% 


1497 O9ARZ SEC9 LD A,C9 1%C9 EN %OADA (SORTIE IMPRIMANTE en sp) 
1498  GAKH4 21DA9A LD HL,S9ADA ; 
1499  GAE7 77 LD (CHL),A ; 


1500 SAS 218A98 LD HL,9R8A scouper sp 64 
1501 GA 77 LD (HL),A 5 


150% 
150: 
1504 
1505 


1506 


1507 
1508 
1509 
1510 
iSi1 
1517 
1513 
1514 


1515 


1516 
1517 
1516 
1519 


1520 


AEHC 
GAEF 
SACO 
SACS 
GAC4 


21689EK 


LD HL,9H68 couper sp 6% 
LD (HL),A : 
LD HL,9R:5Q couper sp 59 
LD (HL),A 5 
RET : 


**x GSOUS-FKOGRAMME 56 #+* 


JACS 
SACS 
GACA 
JACD 
QACF 
FAD2E 
GAD4 
SAD7 
GAD9 


21DA9A 
36CD 
218A9E 
SGES 
21689E 
SGES 
21509E 
36ES 
07 


LD HL,S9ADA srestaurer ‘SORTIE IMPRIMANTE‘ 
LD (HL),CD É 

LD HL,9R8A sremettre sp 64 en 
LD (HL),ES 
LD HL,9EH68 
LD (HL),ES 
LD HL,9B5Q 
LD CHE ES 


service 
remettre sp 62 en service 


remettre sp 59 en service 


*ÆX “22 “22 “sn “2e “es 


**x SORTIE IMPRIMANTE *%+% 


ZADA 
ADD 
ADF 
9AEOQ 
QÂAES 


CD1BEE 
FESE 
C8 
SABSESA 
FEUQ 


CALL BB1R sinterrogation clavier 

CF 6H :petite touche ENTER ? 

REF: 2Z soui, fini 

LD A, (SASE) sparametre ‘marge haute’ dans 
CF 00 segal a 0 ? 


152 
1522 
1523 
152 
1525 
1526 
1527 
1526 
1529 
1530 
1531 
1532 
is 
1534 
1535 
1536 
1537 
1538 
1529 
1540 
1541 
1542 
1545 
1544 
1545 
1546 
1547 


QAES 
9AE7 
9AEB 
JAEE 
QAEE 
9AFOQ 
GAFS 
9AF6 
SAF9 
9AFA 
GAFD 
9EHQ0 
SRI 
9EQS 
9ROS 
9KkQ7 
SRGA 
9EHQE 
GHOD 
SRQE 
SR1iQ 
9B12 
9R1S 
7B17 
9Hi8 
JÉ27 
9RIK 


2609 
47 
CD3F9ER 
21E594 
3618 
CD3D98 
CD:09E 
244597 
ES 
CDD?98 
224797 
E1 
FE06 
2006 
3E01 
Z24D97 
C9 
FEO1 
Ce 
FEU2 
2804 
CDDF99 
FE04 
ce 

ES 
Géo 
CDYF9E 


JRZ 9AFO 
LD K,4A 
CALL OBS 


LD HL,9AES 
LD CHL),18 


CALL 983SD 
CALL 9EHSO 


LD HL,(9745) 


PUSH HL 
CALL 98D2% 


LD (9747) ,HL 


POF HL 

CF G6 
JANZ 9EQE 
LD A,@1 


LD (974D),4A 


RET 

CF @1 
RETZ 

CF Q2 

JRZ 9H16 
CALL 9QDF 
CF O4 
RETZ 
FUSH HL 
LD B,01 
CALL 9ERSF 


sOUi 

snon, alors marge haute dans KE 
seffectuer KR sauts de ligne 
smettre hors service partie ‘marge haute 
calculer nbre de caracteres par ligne 
pose marge gauche imprimante selon (14986) 
sadresse ligne actuelle dans HL 

spreserver 

:calculer nbre de mots et nombre de lettres 
*addrese prochaine ligne en (58727) 
recuperer adresse ligne actuelle 

smot trop long pour les marges 7? 

non 
soui, mettre semaphore 
fini 

plus rien a faire 7 


sinon, alors fini 
ssimple saut de ligne 7? 
OU 

sinon, Sortir ligne 


«fin de texte atteinte 7? 
“Oui, alors fini 
spreserver HL 

si dans KE 

Sauter KE ligne 


1548 
1549 
1550 
1551 
1522 
1553 


1554 


1555 


1556 
1557 
1558 
1559 
1560 
1561 


1562 
1563 
1564 
1565 


1566 


9BLE 
921 
9E24 
9B25 
9E28 
9E2E 
9B2E 


CD749E 
CDAD98 


Ei 
CDEE9E 
244797 
224597 
18AA 


CALL 9EH74 ssi interliqgnez2, sauter encore 1 ligne 
CALL 9SSAD ssSauter eventuelles lignes c.d.c. 

FOF HL recuperer HL 

CALL SREE executer c.d,.c,. entre HL et (58727) 


LD HL,(9747) sadresse prochaine ligne dans HL 
LD (9745) ,HL sprochaine ligne devient ligne actuelle 
JK 9ADA “reprendre 


**x SOUS-PROGRAMME 59 %% 


9ES0Q 
RSI 
JRSZ 
GRIS 
9H37 
JRSA 
9RSE 


ES 

78 
32899C 
QGiE 
CDC49E 
ET 

C9 


FUSF HE spreserver HL 

LD A, smarge gauche dans À 

LD (9C089),4  sranger valeur en (40075) 
LD BSIiE 3% EXECUTER SEQUENCE No 50 
CALL 9KHC4 ù 

PO HAL: srecuperer HL 

RET 5 


#x*x SOUS-FROGRAMME 60 %% 


QBSF 
9B40 
9E41 
9E42 
9845 


ES 


.FS 


CS 
CD4E9E 
CD689E 


FUSH HL s:preserver registres 

FUSH AF ; 

FUSH BC 5 

CALL 9HRA4E sdecrementer compteur de ligne 
CALL 9B6B spasser à la ligne suivante 


1567 9KH48 Ci POF BC srecuperer B (= nombre de lignes a sauter) 


1568 9KH49 10F6 DJNZ 9B4i ssi B<>0,boucler 
1569 9RA4R Fi POP AF srecuperer registres 
1570 9B4C El POP HL ; 

1571 S9EHA4D C9 RET : 


*x SOUS-FROGRAMME 61 %% 


1572 9R4E 214497 LD HL,9744 :HL pointe sur compteur de ligne 
197 VO! -SS DEC (HL) compteur de ligne-i 
1574 9HSz2 COQ RET NZ ssi compteur <> Q@, alors fini 
1575  9KRSTS TA9OZ LD A,(:490) srestaurer compteur de ligne 
1576 9RS6é 324497 LD (9744),A4 3: 
1577 9ES9 21E594A LD HL,9AES sdeverouiller ‘marge hte' de SOKTIE IMFRIM, 
1578 9BSC 5628 LD (HL),28 s - 
1579 QERSE 214297 LD HL,9742% snumero de page + li 
1580 9EHél 74 INC (CHL) : 
1501 9B62 SEDC LD À,0C :code imprimante changement de page ds À 
1582 9KH64 CD8A9E CALL 9KHBA executer 
1 .YH67 C0? RET F 
**x SOUS-FROGRAMME 62 %*+% 
1584 9B68 ES PUSH: HAL :preserver registres 


1565 9569 FS FUSH ÀF : 


1586 
1567 
1568 
1569 
1590 
1972 


1592 


1595 
1594 
1595 
1596 
1107 
1598 
1599 
1600 
16@1 
160% 


1605 
1604 


GEGA 
GEGE 
9E6D 
9H70 
QEH71 
OR7& 
973 


CS 
26@1i 
CDC49E 


FUSH BC 
LD B,@i 
CALL 9BC4 
FOF EC 
FOF AF 
FOF HL 
RET 


*x GSOUS-FROGRAMME 65 %*% 


974 
9H75 
0576 
9KH7A 
GE7C 
GR7D 
QR7E 
9KH80Q 
GESE 
99H64 


F5 
TABF IA 
FEUZ 


FUSH AF 
LD A, (TABF) 
CF 02 

JRZ 9R7E 
FOF AF 

RET 

LD H,@i 
CALL 9B3F 
FOF AF 

RET 


**x SOUS-FROGRAMME 64 %% 


GEBA 
9EBE 


ES 


CS 


PUSH HL 
FUSH BC 


: sauter 1 ligne 


recuperer registres 


‘£Z ‘2 ‘“2ES ‘AL ‘ss 


spreserver ÀF 

:parametre ‘interligne dans 
= 2 7% 

OU 

non, recuperer À et retour 


oui, sauter 1 ligne 


= LL] 


recuperer À et retour 


preserver registres 


= 
ol 
“ 
“ 


A 


1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 
1615 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1022 
LOZE 
1624 
1625 
1626 
1627 
1628 
1629 
1870 
1651 


RSC 
QR8SE 
9R9Q 
Q9R9È 
QH9S 
9K96 
SKH97 
9R98 
9h99 
GR9E 
GH9D 
9E9F 
SEHAQ 
9EAZ 
9EHA4 
9HAS 
9HA7 
GBA9 
GEHAA 
BAC 
QRAE 
GRAF 
QEKR1 
QE 
9KRE6 
QGBE7 
9RKRE 


CDC49E 
C1 
en À 
C9 


CF F4 

JRC 9899 
SUR F2 

LD B,A 
CALL 9ECA4 
FOF EC 
FOF HL 
RET 

LD E,@D 
CF 40 

JRZ 9BES 
INC E 

CF SE 

JRZ 9BEZ 
INC E 

CF SD 

JRZ 9BES 
INC E 

CF 7E 

JRZ 9BEZ 
INC E 

CF 7D 
JRNZ 9BE9 
CALL 9EC4 
FOF EC 
FOF HL 
RET 


scaractere redefini 
non 
sOUi s 
“puis dans KE 

executer sequence No BR 
srecuperer registres 

; 

srini 

:E pret pour sequence 135 
sarobas 7 

OU 

snon, R&B pret pour sequence 
sicrochet gauche 7 

QUI 

non, B pret pour sequence 
scrochet droit 7? 

OU 

non, EB pret pour sequence 
:parenthese gauche 7? 

QUI 

«non, R pret pour sequence 
sparenthese droite 7 

non; 
‘executer sequence KE 
srecuperer registres 
“ 


Ed ED 


7? (244-254) 


No sequence corespondante dans A 


14 


16 


17 


alors caractere normal 


1672 
Léus 
LéT4 
1635 
1656 
16357 


16.58 
16:59 
1640 
Lééti 
164% 
Lédts 
1644 
1645 
1646 
1647 
16448 
1649 
1650 
1651 


1652 


GHES 
HEC 
QERE. 
JEHC 1 
9EHC2 
SHC: 


CD2EHD 


CDS 1EHD 
C1 
E2 
C9 


CALL EBD2E 
JRC 9EKH9 
CALL HDS1 
FOP BC 
POP 
KET 


xx SOUS-FROGKANME 65 ++ 


GEC4 
YEHC7 
9EHC9 
9EHCA 
QHCE 
SECD 
QERCE 
GEDO 
SHDI 
SED2 
9ED4 
9EDS 
9EHD8 
9EDA 
GEHDD 


#10E9C 
SEPT 


ra 


BE 
20FC 
QS 
20F9 


AE 


dm ‘ous 


16 
FEFF 
C8 
CD2ERD 
SGFE 
CD31EHD 
19F+E 


LD HL,9CQE 
LD A,FF 
INC HL 

CF (HL) 
JRNZ 9EC9 
DEC E 
JRNZ 9RC9 
INC HL 

LD A, (HL) 
CF FF 

RET Z 
CALL BD2E 
JRC 9BD5 
CALL ED%1 
JR 9EDOQ 


yimprimante disponible ? 
boucler jusqu'a disponibilite 
ysortir caractere 

recuperer registres 

“ 


sHL pointe sur debut table des sequences-I1 
icode de separation dans À 

sHL pointe sur adresse suivante 

icode de separation 7? 

nom, continuer a chercher 

ysSeparat. trouve / No sequence correspond ‘7? 
non, continuer a chercher 

sequence trouvee/HL pointe sur lere valeur 
svaleur dans À 

sfin de sequence 


oui, fini 
snon, imprimante disponible 7? 
“ 


ssortir caract. où executer c.d.c. 
continuer sequence 


**x SOUS-FROGRAMME 66 *+% 


1653 GEDF 23 INC HL :HL pointe sur 2eme octet code de ctrl 
1654 QBEQ 7E LD A, (HL) ‘dans À 

16955 9HREL DélE SUR 1E sicode ASCII devient valeur reelle 

1656 9BES FEIE CP. 1E svaleur « 50 7? 

1657 SKHES DO RET NC non, donc valeur illegale / retour 
1658 9BE6 FE12 CP 12 svaleur += 18 7 

1659 9ERES DB RET C snon, donc valeur illegale / retour 
1660 SEE 47 LD H,A :No de sequence dans E 

1661 GEBEA  CDC49KH CALL SRC4 executer 

1662  7BED. C9 RET 8 


#**X GSOUS-FROGRAMME 67 %+ 


1665 RER EDS5KH4797 LD DE,(9747) adresse prochaine ligne dans DE 


1664  9QKF2 CDED9S CALL SGSED :comparer HL et DE 

1069: :PVEFS: PEFFE CF: Fr sHL < DE 7? 

1666 9EHF7  CQ RET NZ snon, fini 

1667 9BFS 7E LD A, (HL) sHL pointe sur code de controle 7? 

16008. PES FER CP F1 8 

1669  9SEFRH  ZG0Z JKZ 9C00 OU 

1670 9EFD 23 INC HL snon, pointer HL sur adresse suivante... 
1671 9EFE  18F2 JR 9BF2 s...et continuer 

1672 9CDQ CD689A CALL 9A6S8S ‘executer code de controle... 


1673 9COS 1SED JR 9EBFE s...s@t continuer 


x TABLE DES SEQUENCES IMPRIMANTE *+% 


9COF 
9C10 
7011 
9L12 
9C15 
9C14 
9C15 
Clé 
9017 
9016 
701% 
9CiA 
CIRE 
9cic 
9C1D 
CIE 
CIF 
9C20 
9Cc21 
9C22 
9C25 
9CZ4 
9C25 
9C26 
9C27 


FF 
A 

D 

FF 
6F 
8 

SE 
FF 
61 
8 

SE 
FF 
69 
6 

7E 
FF 
75 
8 

SE 
FF 
40 
FF 
sc 
FF 
70 


s Separateur 
:# SEQUENCE 


: separateur 
:#* SEQUENCE 


:Separateur 


:* SEQUENCE %: 


:separateur 
:* SEQUENCE 


separateur 
*# SEQOUENCE 


Æu ‘2 “2S “nn “2x ss 


; sSeparateur 
:* SEOUENCE 
; separateur 
:# SEOUENCE 
: Sseparateur 
:* SEQUENCE 


3 


LU 


LA LIGNE 


+ ACCENT 


+ ACCENT 


+ DOUBLE 


+ ACCENT 


+ ACCENT 


+ CEDILLE 


+ ACCENT 


CIKCONFLEXE 


CIRCONFLEXE 


FOINT 


CIRCONFLEXE 


GRAVE 


GRAVE 


q9c28 
9c29 
9CZA 
9C2B 
9c2c 
9C2D 
9C2E 
cer 
9C:0 
gcsi 
9C32 
9CSS 
9C54 
9C5S 
9C36 
9CS7 
9C58 
9C539 
9CSA 
9C35E 
9CSC 
9CSD 
QCSE 
9CSF 
9c40 
9c4i 
9c42 


:Separateur 
5% SEOUENCE 
: separateur 
:# SEOUENCE 
sseparateur 
:* SEQUENCE 


sseparateur 
:*# SEOUENCE 


: separateur 
*% SEOUENCE 


separateur 
*% SEQUENCE 


‘ÆS “HR “ZE “AS “ÆE “AN “AZ “AS “23 ‘AN “LE “2e ‘zx 


14: 


e + ACCENT AIGU 


e + ACCENT AIGU 


e + ACCENT CIROCONFLEXE 


i + ACCENT CIRCONFLEXE 


AKOBAS 


CROCHET GAUCHE 


9C4Z 
9C44 
9C45 
9C46 
9C47 
9C48 
9049 
9C44 
9C4E 
9C4C 
9C4D 
QC4E 
9C4F 
9C50 
9C51 
9C52 
9C53 
9C54 
9C55 
9056 
9C57 
9C58 
9C59 
9C54 
9CS5E 
9C5C 
9C5D 


FF 


92 


2D 
18 


Len 
ve) du 


FF 
LE 
52 


7E 
1H 


92 


FF 
1E 


pl 
a 


1E 


92 


1B 


a 
: sSeparateur 


5* CROCHET DROIT 


separateur 
:* SEQUENCE 


LI 
E] 
LI 
ol 
* 
Li 
" 
“ 
“ 
LI 
ol 
LI 
* 
s 
dl 
nm 
* 


separateur 
* SEQUENCE 


D 


LI 
LI 
Li 
e 
# 
LI 
0] 
LI 
LI 
El] 
D 
LI 
« 
“ 


separateur 
*% SEOUENCE 


lé: 


17: 


18: 


FARENTHESE GAUCHE 


PARENTHESE DKOITE 


METTRE NLQ 


QLSE: 76 : 
GRAF À 
CSD FF : Sep ar a ter 

CO 1E 1x GSEÉQUENCE 19: ENLEVER NLQO 
GCbS. 78 : 

UGS © ù 

C4 FF  S@D ar ateur 

Co 15 1x SEQUENCE #0: METTRE ITALIQUE 


“£z 


Cbé 4 : 

YCS7. FF : Separateur 

C6S. IE 1 *x SÉQUENCE 21: ENLEVER ITALIQUE 
9C89 55 ï 


& @p ar" a teur 
* GSEQUENCE 2%: METTRE CAKACTERES GRAS 


Co FF 
C6 15 
Col 4 
LED. FF 
GCLSE :LE 
CHE 46 
A0 ES 
9071. 18 
GRAS. D 
QE 21 

QC74 FF 
GE. LE 
9C76 «D 
y077 0 

GÈTE FF 


85) ar" & TC @ UN” 
# SEÉQUENCE 25: ENLEVER CAKRACTERES GRAS 


°2Z O“£T “2Z ‘22 “ZE “2= ss 


S@p ar a teur 
*%* SEQUENCE 24: METTRE SOULIGNEMENT 


Sep ar a teur 
*+ SEQUENCE 25: ENLEVER SOULIGNEMENT 


“AS “2ZZ ‘ns ‘ÆC ‘£2 ‘“2= “2x “+2 


Sep ar atetur 


9079 
9074 
9C7E 
9070 
9C7D 
QC7E 
AT AS 
CE 
9061 
9082 
9085 
9064 
CSS 
9086 
9087 
9088 
9C697 
CSA 


LE 
4D 


LE 
50 
FF 
LE 
ë7 


Es 
1H 
d/ 
A 
1 
bC 


FF 


5*% SEQUENCE 


*£z “en 


separateur 
* SÉQUENCE 


Separateur 
* GÉQUENCE 


CET “2x “x “se 


sSepar ateur 
% SÉQOUENCE 


Sep ar at eur 
*% SEQUENCE 


AZ “AE “£L “HU “£ZX “22 “£E ‘ax 


29: 


50: 


METTRE CARACTERES MINI 


ENLEVER CAKACTERES MINI 


METTRE DOUBLE LARGEUR 


ENLEVER DOUBLE LARGEUR 


FOSE MARGE GAUCHE 


yvaleur definie en cours de programme 
3% FIN DE LA TABLE 


B LES VARIABLES 


Deux blocs de variables sont implantés, le premier étant uti- 
lisé par la partie du programme s’occupant de la gestion de 
l'écran de travail, et le second par les parties Sortie écran et 
Sortie imprimante. 


PREMIER BLOC (DE 14976 À 14992) 


14976 (&3A80) 


Placard de rangement provisoire de différentes valeurs à dif- 
férents endroits du programme. 


14977 (&3A81) 


Idem, et sert d'autre part à préserver provisoirement le carac- 
tère qui vient d'être saisi au clavier, lorsque les registres sont 
utilisés pour autre chose. 


14978 et 14979 (&3A82 et &3A83) 


Placard de rangement provisoire de différentes valeurs 
supérieures à 255 et tenant donc sur deux octets. 


14980 (&3A84) 


Ligne écran actuelle du curseur.Cetteligne écranne doit pas 
être confondue avec la ligne théorique (même si un texte fait 
100 ou 200lignes, le curseur écran sera toujours comprisentre 
2 et 23 inclus, les lignes 1, 24 et 25 n'étant pas utilisées par 
l'écran de travail). 


14981 (&3A85) 


Ligne théorique actuelle du curseur. Il s’agit cette fois du 
numéro de ligne du texte. L'écran de travail entièrement 
“déroulé ” comprend 255lignes de 80 colonnes (ce qui corres- 
pond bien à 80*255 =20 400 caractères). En termes de texte 
justifié, il est bien évident que le nombre de lignes peut être 
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bien plus important ;tout dépend,àce moment-là, des marges, 
des sauts de ligne, etc. 


14982 (&3A86) 
Colonne actuelle du curseur (entre 1 et 80 inclus). 


14983 (&3A 87) 


Sémaphore d'insertion (mis à 1 si le mode insertion est 
demandé, mis à O autrement). 


14984 et 14985 (&3A88 et &3A89) 


Curseur mémoire. La valeur contenue dans ce placard évo- 
lue d'une manière rigoureusement parallèle à la position du 
curseur écran. En d’autres termes, tout caractère pointé sur 
l'écran par le curseur est également pointé en RAM par le 
curseur mémoire (si le curseur écran avance d'une position, 
le curseur mémoire fait de même ; sile curseur écran descend 
d'une ligne, le curseur mémoire avance de 80, etc.). 


14986 et 14987 (&3A8B et &3A8B) 


Pointeur de fin de texte. Cette variable représente l'adresse 
du dernier caractère du texte. (Notons que ce caractère peut 
tout aussi bien être un espaceinutile, symbolisé sur l'écran par 
un point). Si, par exemple, le curseur écran est descendu d'une 
ligne alors qu'il se trouvait en fin de texte, le pointeur de fin de 
texte sera augmenté de 80, et les 80 derniers caractères du 
texte ne seront que des espaces inutiles. 

Rappelons que la RAM de stockage du texte va de 15000 à 35399. 


Les variables suivantes sont celles définissant le format (se 
reporter éventuellement au mode d'emploi) : 

14988 (&3A8C) Marge gauche. 

14989 (&3A8D) Marge droite. 

14990 (&3A8E) Marge haute. 

14991 (&3A8F) Interligne. 

14992 (&3A90) Nombre de lignes par page. 
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DEUXIÈME BLOC : 38720 À 38733 (&9740 À &974D) 


38720 (&9740) 


Numéro du canal de sortie du texte (0 pour une sortie écran 
et 1 pour une sortie imprimante). 


38721 (9741) 


Numéro de la page à partir de laquelle le texte doit être 
affiché sur 1 écran ou imprimé. 


38722 (&9742) 


Numéro dela page actuellementtraitée parle programme de 
justification. 


38723 (&9743) 


Chaque fois qu'une ligne est traitée par le programme de jus- 
tification, les codes de contrôle indiquant un ou des sauts de 
lignes sont repérés, et le nombre de lignes(s) correspondant 
est rangé dans ce placard (ou additionné à celui qui s'y trouve 
déjà). Lorsque la ligne est affichée ou imprimée, les sauts sont 
effectués et le placard est remis à 0. 


37824 (&9744) 


Sert de compteur pour que chaque page affichée ou impri- 
mée comporte le nombre de lignes souhaitée (la valeurinitiale 
est copiée dans le placard 14992). 


38725 et 38726 (&9745 et &9746) 


Adresse RAM du début de la ligne actuellement traitée parle 
programme de justification. 


38727 et 38728 (&9747 et &9748) 


Adresse RAM du début de la prochaine ligne qui devra être 
traitée par le programme de justification. 

Concernant ces deux placards, il faut préciser qu'en réalité, 
le terme deligne est quelque peu impropre.Eneffet,le principe 
de sortie d’un texte justifié est très schématiquement le sui- 
vant : à partir d'un caractère rangé en RAM, avancer mot par 


— 106 — 


mot jusqu’à ce que “l’on” se rende compte qu’un mot ne ren- 
trera plus dans la ligne (le tout, bien sûr, en tenant compte 
de tout ce qui ne doit pas apparaître, comme les codes de 
contrôle, par exemple). À ce moment-là seulement, on peut 
considérer que la ligne actuelle est bornée d’une manière pré- 
cise (et donc en profiter pour ranger dans le placard 38727 ce 
qui est en fait l'adresse du début de lazone RAM d'où seratirée 
la ligne suivante). 


38729 (&9749) 


Numéro de la ligne écran où doit s'afficher la ligne de texte 
actuellement traitée par le programme de justification (il faut 
bien sûr repérer le moment où la ligne 23 est atteinte et, le cas 
échéant, faire un scrolling d'écran). 


38730 (&974A) 


Nombre de caractères parligne (cette variable dépend natu- 
rellement des marges qui ont été définies par l'utilisateur). 


38731 (&974B) 


Nombre de blancs à mettre entre chaque mot pour obtenir 
une ligne justifiée. 


38732 (&974C) 


Nombre de blancs supplémentaires à répartir pour obtenir 
une ligne justifiée. 

Un exemple permettra sans doute une meilleure compré- 
hension du rôle de ces deux variables. 

Imaginons que l'utilisateur ait positionné la marge gauche en 
10 et la marge droite en 60. Le nombre de caractères parligne 
est donc 60—10+1=51.Le résultat des calculs de justification 
d'une ligne donnée fait apparaître qu'il est possible de faire 
entrer par exemple 9 mots dont la somme totale deslettres qui 
les composent égale 37. Le nombre maximal de caractères 
étant 51, il restera 51—37=14 espaces blancs à répartir dans 
cette ligne. Il faut donc commencer par effectuer la division 
suivante : 14/8 (n'oublions pas que 9 mots impliquent 8 inter- 
valles), le résultat étant 1 etlereste 6. La valeur 1 sera doncran- 
gée dansle placard 38731, et la valeur 6 dansle placard 38732. 
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Il faut bien comprendre que ces 6 blancs supplémentaires 
devront impérativement être utilisés si l’on veut que la ligne 
comporte exactement 51 caractères; en l'occurrence, il 
faudra les répartir entre les 7 premiers mots. 

Pour résumer, notre ligne aura donc l'aspect suivant: 


1: mot 
2 blancs 
2° mot 

2 blancs 
3° mot 

2 blancs 
4° mot 

2 blancs 
5° mot 

2 blancs 
6° mot 

2 blancs 
7° mot 

1 blanc 
8° mot 

1 blanc 
9° mot 


38733 (&974D) 


Sémaphore indiquant, s’il est mis à 1, que le programme a 
rencontré un mot trop long pour tenir dans les marges spéci- 
fiées, et que la justification est par conséquent impossible. 
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MH LES SOUS-PROGRAMMES 


Sous-programme 1 


Appelé lorsque le curseur écran doit être déplacé de 1 versla 
droite (simple déplacement ou saisie d’un caractère), il est 
chargé de modifier les variables en conséquence (colonne, 
curseur mémoire, et éventuellement le pointeur de fin de 
texte, la ligne écranet la ligne théorique). Un éventuel dpasse- 
ment de la ligne 23 est naturellement testé, et le cas échéant 
traité. 

Registres d'entrée : Indifférents. 
Registres de sortie : AF et DE sont modifiés. 


Sous-programme 2 


Idem que le précédent, mais concernant le déplacement du 
curseur vers le bas (passage d’une L à une ligne L +1). 


Registres d'entrée : Indifférents. 
Registres de sortie : Tous les registres sont modifiés sauf BC. 


Sous-programme 3 


Appelé après un scrolling vers le haut (la ligne 2 disparaît et 
les lignes 3 à 23 deviennentleslignes 2 à 22),ilest chargé d’affi- 
cher la nouvelle ligne 23 d’après la RAM. A noter que ce sous- 
programme est appelé avant toute modification des variables. 


Registres d'entrée : Indifférents. 
Registres de sortie : Tous les registres sont modifiés. 


Sous-programme 4 


Idem que le sous-programme 1, mais concernant le déplace- 
ment du curseur vers la gauche. Un éventuel dépassement par 
le bas de la ligne écran n°2 est testé et, le cas échéant, traité. 


Registres d'entrée : Indifférents. 
Registres d'appel: Tous les registres sont modifiés. 


Sous-programme 5 
Idem, mais concernant le déplacement du curseur vers le 
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haut. Là encore, un éventuel dépassement par le bas de la 
ligne 2 est testé. 


Registres d'entrée : Indifférents. 
Registres de sortie : Tous les registres sont modifiés. 


Sous-programme 6 


Appelé après un scrolling vers ie bas (la ligne 23 disparaît et 
les lignes 2 à 22 deviennent les lignes 3 à 23),il est chargé d'af- 
ficher la nouvelle ligne 2 d’après la RAM. Ce sous-programme 
est appelé avant toute modification des variables. 


Registres d'entrée : Indifférents. 
Registres de sortie : Tous les registres sont modifiés. 


Sous-programme 7 


Après que l'adresse RAM du début de la dernière page de 
l'écran de travail a été trouvée (adresse qui doit être un mul- 
tiple de 1760 puisque l'écran peut contenir 22*80=1 760 
caractères), ce sous-programme calcule la valeur des diffé- 
rentes variables (ligne écran, ligne théorique, colonne et cur- 
seur mémoire) pour qu'elles correspondent au dernier carac- 
tère de cette dernière page (ce sous-programmeestutilisé par 
la commande SHIFT + CURSEUR BAS). 


Registres d'entrée : HL contient l'adresse RAM du premier ca- 
ractère de la dernière page (n'oublions pas que cette dernière 
page n’est pas forcément complète), et À contient le numéro 
de la ligne théorique correspondant à ce premier caractère. 


Registres de sortie : HL est préservé. 


Sous-programme 8: 
Division de HL par BC. 


Registres de sortie : Résultat dans A, reste dans HL, BC est 
intact. 


Sous-programme 9 


A partir d'une adresse RAM spécifiée, rechercher celle du 
premier code d'espace inutile (255/&FF) ou du premier code 
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de fin de paragraphe (242/&F2). Si aucun de ces deux codes 
n'est rencontré avant la fin du texte, c'est l'adresse RAM de la 
fin de texte qui est ramenée. 


Registres d'entrée : HL contient l'adresse à partir de laquelle 
doit s'effectuer la recherche. 


Registres de sortie : HL est préservé, DE contient l'adresse 
recherchée et A sert d'indicateur (1 si un espace inutile a été 
rencontré en premier, 2 s’il s’agit d'une fin de paragraphe, et 3 
s'il s'agit de la fin du texte). 


Sous-programme 10 


Ecrire B espaces inutiles en RAM à partir de l'adresse conte- 
nue dans DE. 


Registres de sortie : BC et AF sont modifiés. 


Sous-programme 11 


Nettoyer les 80 adresses (donc y écrire le code 255) situées 
aprés 35399. 


Registres d'entrée : Indifférents. 
Registres de sortie : Tous les registres sont préservés. 


Sous-programme 12 
Décaler la zone RAM de HL à DE inclus de +A. 
Registres de sortie : HL et DE sont préservés. 


Sous-programme 13 
Décaler la zone RAM de HL à DE inclus de —A. 
Registres de sortie : HL et DE sont préservés. 


Sous-programme 14 


Afficher sur l'écran, et à partir de la position actuelle du cur- 
seur, la zone RAM de HL à DE inclus (si la zone spécifiée est 
trop longue pour être affichée en entier sur l'écran, le sous- 
programme n'affiche que ce qui est possible). 


ne 


Registres d'entrée : L'adresse spécifiée par HLdoitimpérative- 
ment correspondre à la position du curseur sur l'écran. 


Registres de sortie : HL et DE sont préservés. 


Sous-programme 15 


Afficher les DE caractères rangés en RAM à partir de 
l'adresse contenue dans HL (cette adresse étant incluse). 


Registres d'entrée : BC doit contenir l'adresse écran à partir de 
laquelle se fera l'affichage. 


Registres de sortie : Tous les registres sont modifiés. 


Sous-programme 16 


Sortir un caractère normal d'après la table du générateur de 
caractères, ou un caractère redéfini d’après la table de redéfi- 
nition (voir explications complémentaires au paragraphe trai- 
tant des points particuliers). 


Registres d'entrée : BC contient l'adresse écran où doit s'affi- 
cher le caractère, et À contient le code ASCII de ce caractère. 


Registres de sortie : Seul BC est inchangé. 


Sous-programme 17 


Teste si le curseur mémoire est à la position minimale 
(15000). Si oui, l'indicateur Z est vrai au retour. 


Registres d'entrée : Indifférents. 
Registres de sortie : AF, HL et DE sont modifiés. 
Sous programme 18 


Teste si le curseur mémoire est à la position maximale 
(35399). Si oui, l'indicateur Z est vrai au retour. 


Registres d'entrée : Indifférents. 


Registres de sortie : AF,HL et DE sont modifiés (ce dernier con- 
tient l'adresse du curseur mémoire). 


Sous-programme 19 


Teste si le curseur mémoire est égal au pointeur de fin de 
texte. Si oui, l'indicateur Z est vrai au retour. 
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Registres d'entrée : Indifférents. 
Registres de sortie : AFet DE sont modifiés (ce dernier contient 
l'adresse du curseur mémoire). 
Sous-programme 20 
Ajoute au curseur mémoire le contenu de A. 
Registres de sortie : Tous les registres sont préservés. 


Sous-programme 21 
Soustrait du curseur mémoire le contenu de A. 
Registres de sortie : AF est modifié. 


Sous-programme 22 


Teste si le pointeur de fin de texte est égal au maximum 
(35399). Si oui, Z est vrai au retour. 


Registres d'entrée : Indifférents. 
Registres de sortie : AF est modifié. 


Sous-programme 23 

Additionne au pointeur de fin de texte le contenu de A. 
Registres d'entrée : Indifférents. 
Registres de sortie : Tous les registres sont préservés. 


Sous-programme 24 

Soustrait du pointeur de fin de texte le contenu de A. 
Registres d'entrée : Indifférents. 
Registres de sortie : AF est modifié. 


Sous-programme 25 


Teste si la ligne théorique actuelle (celle où se trouve le cur- 
seur) est égale au maximum (255). Si oui, Z est vrai au retour. 


Registres d'entrée : Indifférents. 
Registres de sortie : AF est modifié. 


0 


Sous-programme 26 


Testesilaligne écran actuelle estégaleà2.Sioui,Zest vraiau 
retour. 


Registres d'entrée : Indifférents. 
Registres de sortie : AF est modifié. 


Sous-programme 27 


Teste si la ligne écran actuelle est égale à 23. Si oui, Zest vrai 
au retour. 


Registres d'entrée : Indifférents. 
Registres de sortie : AF est modifié. 


Sous-programme 28 


Teste si la colonne actuelle est égale à 80. Si oui, Zest vrai au 
retour. 


Registres d'entrée : Indifférents. 
Registres de sortie : AF est modifié. 


Sous-programme 29 


Teste si la colonne actuelle est égale à 1. Si oui, Z est vrai au 
retour. 


Registres d'entrée : Indifférents. 
Registres de sortie : AF est modifié. 


Sous-programme 30 


Positionne le curseur système à l'emplacement spécifié par 
les variables (14982) et (14980). 


Registres d'entrée : Indifférents. 
Registres de sortie : Tous les registres sont préservés. 


Sous-programme 31 


Affiche, à la position actuelle du curseur écran, le caractère 
adressé par le curseur mémoire. 
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Registres d'entrée : Indifférents. 
Registres de sortie : AF est modifié. 


Sous-programme 32 


Affiche un curseur à la position indiquée par les variables 
(14982) et (14980). 


Registres d'entrée : Indifférents. 
Registres de sortie : AF est modifié. 


Sous-programme 33 

Scrolling vers le haut des lignes écran 3 à 23 incluses. 
Registres d'entrée : Indifférents 
Registres de sortie : Tous les registres sont modifiés. 


Sous-programme 34 

Scrolling vers le bas des lignes écran 2 à 22 incluses. 
Registres d'entrée : Indifférents. 
Registres de sortie : Tous les registres sont modifiés. 


Sous-programme 35 
Compare les valeurs contenues dans les registres HL et DE. 


Registres de sortie :HL, DE et BC sont préservés.A contient 1 si 
HL > DE, 0 si HL = DE et 255 si HL < DE. 


Sous-programme 36 


Utilisé chaque fois que le curseur est déplacé, il affiche en 
bas et à gauche de l'écran la nouvelle ligne et/ou la nouvelle 
colonne (voir explications complémentaires au paragraphe 
traitant des points particuliers). 


Registres d'entrée : Si À contient O, seule la colonne sera affi- 
chée ;siAcontient2,seulelalignesera affichée ;siAcontient1, 
les deux le seront. 


Registres de sortie : HL et AF sont modifiés. 
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Sous-programme 37 
Nettoie la zone RAM de HL inclus à 39400 inclus. 
Registres de sortie : AF est modifié. 


Sous-programme 38 


Modifie les variables pour qu’elles correspondent à un posi- 
tionnement du curseur mémoire à l'adresse 15000 (et donc à 
un positionnement du curseur écranenligne théorique 1,ligne 
écran 2 et colonne 1). 


Registres d'entrée : Indifférents. 
Registres de sortie : Tous les registres sont préservés. 


Sous-programme 39 


Coupe l'accès au sous-programme 44, transforme d'autre 
part la partie SORTIE ECRAN (lignes 1094 à 1130 du listing 
assembleur) en sous-programme, de manière qu'il puisse être 
appelé par un CALL &97E1, et supprime enfin tous les appels 
d'affichage (routine système &BB5A) des sous-programmes 
45 et 55. Ce sous-programme est utilisé lorsque l’on souhaite 
une sortie écran à partir d'une page spécifiée :jusqu'à ce quela 
page soit atteinte, les calculs de justification sont effectués, 
mais rien n'apparaît sur l'écran. 

Registres d'entrée : Indifférents. 


Registres de sortie : HL et AF sont modifiés. 


Sous-programme 40 


Remet en l'état tout ce qui a été modifié par le sous-pro- 
gramme précédent. 


Registres d'entrée : Indifférents. 
Registres de sortie : HL et AF sont modifiés. 


Sous-programme 41 


Positionne le curseur système en fonction de la marge 
gauche (14988) et de la ligne (38729). 


Registres d'entrée : Indifférents. 
Registres de sortie : AF est modifié. 
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Sous-programme 42 


Calcule,en fonction des marges,le nombre de caractères par 
ligne. Le résultat est rangé en (38730). 


Registres d'entrée : Indifférents. 
Registres de sortie : AF et BC sont modifiés. 


Sous-programme 43 


Effectue B sauts de ligne, en vérifiant au fur et à mesure le 
compteur de lignes. 


Registres de sortie : HL et AF son préservés. 


Sous-programme 44 


Passe à la ligne suivante (en incrémentant le compteur de 
lignes). Tout dépassement éventuel de la ligne 23 est vérifié et 
traité le cas échéant. 


Registres d'entrée : Indifférents. 
Registres de sortie : Tous les registres sont préservés. 


Sous-programme 45: 


Décrémente de 1 le compteur de lignes. Sice compteur =0, 
une ligne en pointillé est affichée et le compteur de pages est 
incrémenté. 


Registres d'entrée : Indifférents. 
Registres de sortie : Seul DE est préservé. 


Sous-programme 46 


Vérifie la valeur du paramètre “interligne ”. S'il est égal à 2, 
une ligne est sautée. 


Registres d'entrée : Indifférents. 
Registres de sortie : AF et HL sont préservés. 


Sous-programme 47 


Après l'affichage d'uneligne,il saute lenombre delignesindi- 
qué par (38723) puis remet ce dernier à 0. Il s’agit là, bien sûr, 
des sauts de lignes relatifs aux codes de contrôle. 
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Registres d'entrée : Indifférents. 
Registres de sortie : Tous les registres sont modifiés. 


Sous-programme 48 


Pour la prochaine ligne à afficher, calculerle nombre de mots 
ainsi que le nombre total de lettres qui composent ces mots. 


Registres d'entrée : HL pointe sur le début de la zone RAM cor- 
respondante (le nombre de caractères par ligne est d'autre 
part rangé dans le placard 38730). 


Registres de sortie : HL pointe sur le début de la zone RAM cor- 
respondant à la prochaine ligne; B contient le nombre de 
mots ; C contient le nombre de lettres; A sert d'indicateur: il 
contient 1 s’il n’y a plus rien à faire (fin de texte rencontrée et 
B=0), 2 s'il suffit de passer une ligne (rencontre du code de 
contrôle de fin de paragraphe seul suruneligne),8silaligne se 
termine parle code de fin de paragraphe, 4silaligne setermine 
par la fin du texte, et 6 siun mottroplong pourles marges aété 
rencontré. 


Sous-programme 49 


Appelé parle précédent, ce sous-programme effectue, au fur 
et à mesure qu'il les rencontre, les codes de contrôle de pose 
de marge et de saut de ligne (les poses de marge sont effec- 
tuées immédiatement, tandis que les sauts de lignes sont 
“retenus” et effectués lorsque l'affichage de la ligne est ter- 
miné). 

Registres d'entrée : HL pointe sur le premier des 5octets(&F1) 
constituant le code de contrôle. 


Registres de sortie : HL pointe sur l’octet suivant immédiate- 
ment le dernier octet'du code de contrôle, et tous les autres 
registres sont préservés. 

Sous-programme 50 


Vérifie sile mot pointé par HL peut être ajouté danslaligneen 
cours de justification sans que le nombre de caractères soit 
dépassé. 


Registres d'entrée : HL pointe sur le premier caractère du mot. 
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Registres de sortie : Si le mot est trop long pour être ajouté 
dans la ligne, A=0; sinon, A= 1. De toute façon, HL pointe sur 
l'octet suivant immédiatement le dernier caractère du mot 
(sauf dans le cas particulier où le mot estimmédiatement suivi 
d'un code de fin de paragraphe : dans ce cas,HL pointe sur l'oc- 
tet suivant immédiatement ce code). 


Sous-programme 51 


Calcule, en fonction du nombre de lettres que peut contenir 
une ligne, du nombre de mots qui peuvent entrer dans cette 
ligne et du nombre total des lettres qui les composent, le 
nombre d'espaces qui devront être mis entre chaque motetle 
nombre de blancs supplémentaires à répartir (revoir éventuel- 
lement les explications concernant les variables 38731 et 
38732). 


Registres d'entrée :B contient le nombre de motset Ccontient 
le nombre de lettres. 


Registres de sortie : HL est préservé (le nombre de blancs 
entre chaque mot est rangé en (38730) et le nombre de blancs 
supplémentaires en (38732)). 


Sous-programme 52 


Teste si la valeur contenue dans HL est plus grande ou égale 
au pointeur de fin de texte. Si oui, À = 0 ou 1 ; sinon A=2586. 


Registres de sortie : Seul AF est modifié. 


Sous-programme 53 


Selon le signal contenu dans A après le retour du sous-pro- 
gramme 48, ce sous-programme sort une ligne, saute simple- 
ment une ligne, ou ne fait rien. 


Registres d'entrée : Registres de sortie du sous-programme 
48. 


Registres de sortie : HL pointe sur le début de la zone RAM d'où 
sera tirée la prochaine ligne, et AF est préservé. 
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Sous-programme 54 

Affiche une ligne à l'écran. 
Registres d'entrée : HL pointe sur le début de la ligne. 
Registres de sortie : HL pointe sur le début dela ligne suivante. 


Sous-programme 55 


Complémentaire du précédent, il est appelé lorsqu'un mot 
esttrouvéetaffichetoutesleslettres de ce mot (rappelons que 
la fin d'un mot est signalée par la rencontre d'un espaceinutile, 
d'un code de fin de paragraphe, d'un espace blanc ou d’un 
code de contrôle). 


Registres d'entrée : HL pointe sur le premier caractère du mot, 
A contient ce caractère, et B contient le nombre de caractères 
par ligne. 

Registres de sortie : HL pointe sur l’octet suivant immédiate- 
ment le dernier caractère du mot.Sice motétaitle dernier dela 
ligne, le compteur B a atteint O et l'indicateur Z est vrai au 
retour. 


Sous-programme 56 


Appelé parle sous-programme 54 chaque fois qu’un code de 
contrôle est rencontré, ce sous-programme vérifie s’il s’agit 
d'un code de contrôle imprimante et, si oui, l'exécute. 


Registres d'entrée : HL pointe surle premier des 5 octets cons- 
tituant le code de contrôle. 


Registres de sortie : AF est modifié et HL pointe sur l’octet sui- 
vant immédiatement le dernier des 5 octets du code de con- 
trôle. 


Sous-programme 57 


Transforme la partie SORTIE IMPRIMANTE en sous-pro- 
gramme et coupe l'accès aux sous-programmes 59, 62 et 64. 
estutilisé pour empêcher l'impression des pages situées avant 
celle qui a été spécifiée lors de la demande de sortie impri- 
mante (voir sous-programme 39 dont il est la réplique). 


Registres d'entrée : Indifférents. 
Registres de sortie : HL et AF sont modifiés. 


=120— 


Sous-programme 58 
Inverse du précédent. 
Registres d'entrée : Indifférents. 
Registres de sortie : HL et AF sont modifiés. 


Sous-programme 59 


Pose de la marge gauche de l'imprimante en fonction de 
(14988). 


Registres d'entrée : Ce sous-programme est appelé immédia- 
tement après le sous-programme 42, au retour duquel B con- 
tient (14988). 


Registres de sortie : Tous les registres sont modifiés. 


Sous-programme 60 


Effectue B saut(s) de ligne imprimante (en vérifiant chaque 
fois le compteur de lignes et le compteur de pages). 


Registres de sortie : BC est modifié. 


Sous-programme 61 


Décrémente le compteur de lignes par page. Sice compteur 
atteint O, il est restauré, la partie “marge haute” de la SORTIE 
IMPRIMANTE est déverrouillée, et le compteur de pages est 
incrémenté. 


Registres d'entrée : Indifférents. 
Registres de sortie : HL et AF sont modifiés. 


Sous-programme 62 
Saute une ligne imprimante. 
Registres d'entrée : Indifférents. 
Registres de sortie : Tous les registres sont préservés. 


Sous-programme 63 


Vérifie si le paramètre interligne (14991) est égal à 2 et, si oui, 
saute une ligne imprimante. 
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Registres d'entrée : Indifférents. 
Registres de sortie : HL et AF sont préservés. 


Sous-programme 64 


Sort sur l'imprimante le caractère contenu dans À, y compris 
s'il s'agit de {, }, [,], ou d’un caractère accentué. 


Registres de sortie : AF est modifié. 


Sous-programme 65 


Exécute la séquence imprimante n°B (voir explications sur 
les séquences imprimante au paragraphe traitant des points 
particuliers). 


Registres de sortie : HL, AF et BC sont modifiés. 


Sous-programme 66 
Exécute un code de contrôle imprimante. 


Registres d'entrée : HL pointe sur le deuxième des 5 octets 
constituant le code de contrôle. 


Registres de sortie : HL, BC et AF sont modifiés. 


Sous-programme 67 


Recherche et exécute tous les codes de contrôle impri- 
mante de la zone mémoire comprise entre HL (exclu), et 
(38727) inclus (cela pour éviter que des codes de contrôle 
situés entre la dernière lettre du dernier mot de la ligne qui 
vient d'être imprimée et le début de lazone RAM d'oùseratirée 
la prochaine ligne ne soient laissés pour compte). 


Registres de sortie : Tous les registres sont modifiés. 


En plus de ces sous-programmes, un certain nombre de rou- 
tines système sont appelées à différents endroits. Pour ceux 
qui n'auraient pas les renseignements nécessaires dans leur 
bibliothèque, voici la description de celles qui sont utilisées 
dans notre programme. 
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&BB1B 

Teste siune touche est pressée.Siune touche est pressée, le 
le sémaphore de carry est vrai en sortie et À contient le carac- 
tère. Sinon, le sémaphore de carry est faux. 
&BB2D 


Définition du code qui sera fourni lors de la pression d'une 
touche conjointement à la touche SHIFT. 


Registres d'entrée : A contient le numéro delatoucheetBcon- 
tient le code désiré. 


Registres de sortie : HL et AF sont modifiés. 


&BB5A 


Affichage d’un caractère à la position actuelle du curseur 
système. 


Registres d'entrée : Acontient le caractère (s'ils’agit d'un code 
de contrôle, donccomprisentre0et&1F,cecodeestexécuté). 


Registres de sortie : Tous les registres sont préservés. 


&BB75 
Positionnement du curseur système. 


Registres d'entrée : H contient le numéro de colonne et L le 
numéro de ligne. 


Registres de sortie : HL et AF sont modifiés. 


&BB8A 


Affichage d'un curseur sur l'écran, à la position actuelle du 
curseur système. 


Registres d'entrée : Indifférents. 
Registres de sortie : AF est modifié. 


&BC1A 


Calcul de l'adresse écran d'une position du mode texte (rap- 
pelons qu'en mode 2, une position occupe 8 octets; dans ce 
mode, l'adresse fournie sera celle de l’octet du haut). 
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Registres d'entrée : H contient la colonne et L contient la ligne. 
(Attention : la colonne et la ligne doivent être spécifiées sur la 
base d’une numérotation de 0 à 39 et de O à 24 ; pour obtenir 
par exemple l'adresse de la position (3,5), il faudrait charger H 
avec 2etLavec4)) 


Registres de sortie : HL contient l'adresse, BC et AF sont modi- 
fiés. 
&BC50 


Déplacement d'une partie de l'écran d’une ligne vers le haut 
ou d’une ligne vers le bas (scrolling). 


Registres d'entrée : B contient O pour un déplacement vers le 
bas, toute autre valeur provoquant un déplacement vers le 
haut. La zone à déplacer doit être délimitée comme suit: 


H contient la colonne de gauche. 
L contient la ligne du haut. 

D contient la colonne de droite. 
E contient la ligne du bas. 


&BD2E 

Teste sil'imprimante est disponible. Au retour, l'indicateur de 
carry est vrai si l'imprimante est indisponible, il est faux autre- 
ment. 
&BD31 


Envoie un caractère vers l'imprimante (qui doit être dispo- 
nible). 


Registres d'entrée : À contient le caractère. 
ie de sortie : AF est modifié (en réalité, seul Fest modi- 
ié). 
&B906 
Sélectionne la ROM inférieure. 
Registres d'entrée : Indifférents. 
Registres de sortie : AF est modifié. 
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&B909 

Coupe la ROMinférieure et resélectionne la RAM. 
Registres d'entrée : Indifférents. 
Registres de sortie : AF est modifié. 


H LES POINTS PARTICULIERS 


L'AFFICHAGE DES CARACTÈRES 


Lors des saisies de caractères (lorsque vous frappez votre 
texte), il ne se pose pas de problème particulier concernant la 
vitesse d'exécution de l'affichage, et le programme utilise tout 
simplement la routine système &BB5A évoquée plus haut. 
Même si cela est rarement gênant, il faut néanmoins savoir que 
cette routine est grosse consommatrice de temps, et qu'il est 
nécessaire d’en tenir compte dans certains cas particuliers. 

Un exemple : la commande SHIFT + CURSEUR HAUT provo- 
que l'affichage de la première page de l'écran de travail et ren- 
voie le curseur en colonne 1, ligne 1. Si la routine &BB5A était 
utilisée dans ce cas précis (eten général chaque fois qu'un affi- 
chage important doit se produire), le temps de remplissage de 
l'écran serait relativement long (entre 3 et 5 secondes en 
moyenne). C’est là le genre de détail qui n’a l’air de rien de 
prime abord, mais qui peut rendre un programme fort pénible à 
l'usage. Nous avons donc choisi une technique certes un peu 
plus complexe, mais qui présente l'avantage d'être beaucoup 
plus rapide (le remplissage de l'écran se fait en moins d’une 
seconde). 

Cette technique va nous amener à explorer une zone de la 


mémoire ROM bien particulière que l’on appelle la table du 
générateur de caractères. Dans cette table, qui comporte 


256*8 octets, sont rangées les valeurs qu'il faut écrire en 
mémoire écran pour représenter, en mode 2, chacun des 256 
caractères existants (rappelons que les codes de contrôle ont 
une représentation graphique). 

Toutes ces valeurs sontrangées par blocs de 8octetschacun 
(en mode 2, un caractère “prend” 8 octets de la mémoire 
écran). La table du générateur commence à l'adresse 14336 
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(&3800) par les 8 octets de la représentation graphique du 
code de contrôle 0, viennent ensuite les 8 octets du code de 
contrôle 1, et ainsi de suite jusqu'au dernier caractère dont le 
code est 255. 

On peut donc en tirer cette conclusion que l'adresse dans la 
table du premier des 8 octets d'un caractère peut être calculée 
à partir de son code ASCII et grâce à la formule suivante: 
adresse = 14336+(8+ code ASCII). 

Un exemple : le code ASCII de la lettre À est &41 (65 en déci- 
mal) ; dans la table du générateur de caractères, l'adresse du 
premier octet concernant cette lettre est 14336+(8+65)= 
14856 (soit &3A08).Unelecture de cetteadresseROMetdes7 
suivantes donne les résultats ci-après (attention, n’essayez 
pas de vérifier ces valeurs avec la commande PEEXK , cette der- 
nière ne permettant pas de lire en mémoire ROM): 


(&3A08) = &18 
(&3A09) = &3C 
(&3AO0A) = &66 
(&3A0B) = &66 
(&3AOC) = &7E 
(&3AOD) = &66 
(&3AOE) = &66 
(&3AOF) = &00 


Ceux à quiilresterait quelques doutes pourront vérifier qu’en 
écrivant ces 8 valeurs dans 8 adresses de la mémoire écran 
situées les unes en dessous des autres, ils obtiendront bien la 
lettre A. 

Sachant que la routine système &BC1A permet d'obtenir, à 
partir d'une coordonnée du mode texte, l'adresse écran cor- 
respondante, il suffira donc, pour écrire un caractère, delireles 
8 octets correspondants dans la table du générateur et de les 
écrire directement en mémoire écran. 

La lecture de la ROM se fait grâce à la routine système &B906 
(décrite précédemment): l'adresse dans la table du généra- 
teur correspondant à un caractère spécifié ayant été calculée, 
la ROM inférieure est sélectionnée et la valeur contenue dans 
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cette adresse chargée dans le registre À ; la RAM est ensuite 
resélectionnée (routine &B909) et la valeur lue écrite en 
mémoire écran (le processus se renouvelle bien sûr 8 fois par 
caractère). Tout cela se passe aux lignes 740 à 749 du listing 
assembleur. 

Dans ce contexte, les caractères redéfinis (accentués) doi- 
vent naturellement être traités d’une manière particulière.Les 
instructions SYMBOL AFTER et SYMBOL ont en quelque sorte 
pour effet de créer une seconde table dont lalongueur varieen 
fonction du nombre de caractères redéfinis et dont l'adresse 
de départ dépend de la machine utilisée. 

Ce programme a été écrit sur un CPC 464 équipé d'unlecteur 
de disquette, et l'instruction SYMBOL AFTER 236 permet de 
redéfinir 20 caractères (en réalité, seuls les caractères 240 à 
255 le sont ; les autres sont à votre disposition...). Dans ce cas 
précis, la table est rangée à partir de l'adresse 42588 et 
l'adresse correspondant à un code spécifié s'obtient par la for- 
mule : (code ASCII-235)*8+42580. Le principe de sortie d’un 
caractère redéfini sera donc le même que pour les autres 
caractères, mais cette nouvelle table se trouvant en RAM il va 
de soi que la routine de sélection de la ROM n'aura plus à être 
utilisée (voir les lignes 750 à 769 du listing assembleur). 

Pour ce quiconcerneles664,6128et464 sanslecteur de dis- 
quette, la solution consiste simplement à écrire une copie dela 
table à partir de l'adresse 42588. En pratique, nous nous con- 
tenterons de recopier les valeurs des caractères effective- 
ment redéfinis (voir les lignes 348 à 374 du listing de charge- 
ment BASIC) : les 8 valeurs du caractère 240 sont chargées 
dans les adresses 42620 a 42627, les 8 du caractère 241 de 
42628 à 42635, etc. 


L'AFFICHAGE DE LA LIGNE ET DE LA COLONNE 


Ces deux affichages sont effectués par le sous-programme 
36 chaque fois que le curseur change de position. 

Obtenir, à partir d'un programme assembleur, l'affichage 
d'une valeur contenue dans un registre est en principe une 
opération relativement complexe puisqu'il faut “traduire” 
cette valeur en sa représentation par des codes ASCII. Ilexiste 
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heureusement une autre solution consistant à “sauter” au 
beau milieu de la ROM BASIC pour utiliser un sous-programme 
ayant justement pour fonction d'afficher à la position actuelle 
du curseur système la valeur contenue dans HL (l'adresse de 
ce sous-programme est &EE79 pour le 464 ; pour les autres 
machines, voir la partie“ Adaptation aux 664, 6128 et 464 sans 
lecteur de disquette”). 

Contrairement aux routines système, les sous-programmes 
de la ROM BASIC ne sont accessibles que parle biais du RES- 
TART 24 (code assembleur &DF). Cette instruction, qui permet 
d'appeler une routine n'importe où en ROM ou en RAM, doit 
être immédiatement suivie de l'adresse d’un bloc de paramè- 
tres composé de 3 octets: 


Octet 1 Octet faible de l'adresse de la routine qui doit être 
appelée 


Octet 2 Octet fort de cette adresse. 


Octet 3 Octet de configuration indiquant l’état RAM/ROM 
souhaité. Dans le cas qui nous occupe, la sélection 
de la ROM BASIC s'obtient par &FC (voir les lignes 
915 à 921 du listing assembleur). 


LA TABLE DES SÉQUENCES IMPRIMANTE 


Pour éviter un allongement démesuré du programme assem- 
bleur, les codes de contrôle imprimante ont été rangés sous la 
forme d’une table, de manière que chacun d'eux puisse être 
appelé en indiquant simplement son numéro de rang dans 
cette table (voir en fin de listing assembleur). Notons que les 
caractères accentués y trouvent leur place, puisqu'ils sont 
obtenus grâce à des codes de contrôle (un Ô, par exemple, est 
obtenu en sortant un o, puis en reculant d'un espace la tête 
d'impression, enfin en sortant un accent circonflexe). 

Les différentes séquences sont séparées par &FF et il est 
facile, par conséquent, de rechercher n'importe quelle 
séquence en fonction de son rang, puis d'exécuter tous les 
codes qui la composent, jusqu'à la rencontre de &FF qui signa- 
lera que la séquence est terminée. 

Il faut noter la petite particularité de la séquence n°30, qui 
positionne la marge gauche (&9C87 à &9C89). L'emplacement 
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mémoire &9C89, censé contenir le numéro de la marge, estini- 
tialisé à O. En fonction de la valeur de marge spécifiée, cet 
emplacement sera naturellement chargé par le programme 
avant l’appel de la séquence. 

Rappelons enfin que les codes de contrôle utilisés sont ceux 
de l'imprimante DMP 2000; si vous souhaitez adapter le pro- 
gramme à une imprimante dont les codes diffèrent, vous 
devrez modifier la table en conséquence. Si, d'autre part, vous 
décidez de rajouter des séquences, il sera nécessaire d’effec- 
tuer quelques modifications mineures dans la partie du pro- 
gramme s'occupant de la sortie imprimante (lignes 1481 à 
1673 du listing assembleur). En l’état actuel, par exemple, le 
sous-programme 66 considère commeillégal tout numéro de 
séquence supérieur à 29. 


LES CODIFICATIONS PARTICULIÈRES 


Les caractères accentués 


Ils sont obtenus grâce aux touches du pavé numérique. Les 
codes correspondant à ces touches sont compris entre 128et 
138 ; lors de la saisie clavier, il leur est donc ajouté 116 pour 
obtenir des codes compris entre 244 et 254 (c'est-à-dire ceux 
qui ont été redéfinis par la commande SYMBOL). 

L'espace forcé 


Obtenu par la barre d'espacement pressée conjointement à 
la touche Shift, il est codifié par &F3 (241) lors de la saisie cla- 
vier.llest évident qu'il seraremplacé par &20 avant toute sortie 
écran. 

L’espace inutile 

Codifié par &FF (255). 


La fin de paragraphe 
(Touche SHIFT + ENTER) codifié par &F2 (242). 


Les codes de contrôle 


Codifiés par &F1 (241) suivide 4 octets (voir àce sujet le para- 
graphe concerné du chapitre “ Mode d'emploi”. 
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Ilimporte de bien se rappeler que, lors des saisies, les valeurs 
indiquées seront rangées sous forme ASCII, et qu'il faudra 
donc les transformer en valeurs réelles pour les traiter. Par 
exemple, le code de contrôle posant la marge gauche en 
colonne 18 aura l'apparence suivante : 


C en vidéo inverse + 0218 


En RAM, par contre, l'aspect sera différent : 


&F1 


&30 
&32 
&31 
&38 


Code ASCII du C en vidéo inverse (rappelons que ce 
caractère est redéfini). 
Code ASCII du O 


Code ASCII du 2 
Code ASCII du 1 
Code ASCII du 8 


Chaque fois qu'un de ces codes sera considéré, il faudra 
donc en tirer la valeur réelle qu'il représente. Le numéro de 
marge, par exemple, sera calculé par la formule: (&31— 
&30)*10+8&38—-&30. 
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LE PROGRAMME DE CHARGEMENT 
DES FICHIERS 


Ce programme permet la création du fichier ‘ ASSEMBLE" 
(contenant le programme assembleur), et éventuellement 
celle du fichier‘ CARACTER (pour ceux qui possèdent un 664, 
un 6128 ou un 464 sans lecteur de disquette — voir à ce sujet le 
premier paragraphe du chapitre traitant de l'adaptation du 
programme à ces machines). 

llest bien sûrrelativementlongäentrer,maislesrisques d'’er- 
reur sont pratiquement inexistants puisque chaque ligne de 
DATA est vérifiée. Il est certain que vous ne le rentrerez pas 
sans erreur du premier coup; il est donc préférable dans un 
premiertemps de mettre hors serviceleslignes de sauvegarde 
des fichiers (300 et 362) en utilisant un REM, et de ne les 
remettre en service qu'une fois toutes les erreurs corrigées. 

Il reste toutefois qu'un 0 en plus ou en moins dans les lignes 
ne comportant que des 0 ne sera pas dépisté. C'est pourquoi 
nous ne saurions trop vous conseiller de vérifier en plus quel- 
ques emplacements mémoire pris au hasard enles comparant 
à ceux du listing assembleur (utilisez pour cela la commande 
POKE)). 

La procédure de première utilisation est expliquée au der- 
nier paragraphe du “Mode d'emploi”. 
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MEMORY 56499 
MODE 2:INK 1,0:INK Q@,13: BORDER 0Q 
FRINT'CHARGEMENT EN COURS" 


+ 


* #*x GESTION ECRAN DE TRAVAIL #*% 
AD=56500 

FOR I1=1i TO 168 

1Q READ AF,R#:Vx0 

11 FOR J=1i TO LEN(A#)-1 STEF 2 

12 X=VAL (MUU+MIDE (AE, 9,2) ) 3 VEV+X 
15 POKE AD,X:AD=AD+1 

14 NEXT J:LOCATE 1,S: PRINT 18+I 

15 IF Vé3VAL CMRU+RE) THEN FRINT'!'ERREUR 
EN LIGNE"; 18+I: FRINT CHK# (7) : END 
16 NEXT I 


IONTURANTr 


19” 

19 DATA 2198SA0180S52S6FF250RH78R120,472 
20 DATA FG21983A01S50C011E006CDC194,615S 
21 DATA CDCA9YSSEZFO6Q0CDEDRBSE 1206, 4AAÀ 
22 DATA GICDEDRBSE1006Q02CD2DERC900,48A 
23 DATA 00000000, 

24 DATA CDIRRRIQFBFE7FCARF9I1FE8036,81H 
2% DATA O9FESRSQDDSC674C55692FE2058,5E2 
26 DATA QSFE7FDAS692FEDICAEF9SFEOQD,77A 
27 DATA CADYE9SFEFOSSOSFEFCDASASFFE,8F6 
29 DATA QOEQDOSSEFSCISGQ2FE1A20083E , 450 
29 DATA FICSS692FEEQCASD9IFE1OCAi6é,850 
30 DATA,9SFEQUACARSYSFESBCSC3ICCSENO,811 
31 DATA 00000000000000000000000000,0Q 
2 DATA 000000000200 ,0 

3 DATA FEFSCA7O8SFFEFOCASDOOFEF2CA,ASZ 
34 DATA 4190FEFI1CADASFFEFA4CAQAGZFE , 945 
39 DATA FSCAIB9IFEFECAES9IFEF7CAER, A4C 
6 DATA 9OCECCHENQOOVOP020000700000,z2AD 
37 DATA 0000000000000000000000,0 

39 DATA AFS2805:ACD29952827CDBD9SCD ,661 
39 DATA A19S2010SE01528035ACD9R9520,4AE 
40 DATA BECDDI19SCD2290CDR28FCDCA9S,7F2 
41 DATA SASQDZACDFCYSCSCCSECDEDISCD , 85 
2 DATA CA9SC34594,2F9 

3 DATA ESCDS49S520053E01CD6F9SSE01,4EF 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


3 DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


CD419521863ACDA195280334E 1,507 
C93601CD9R9528,325 
D22B342B34E1C9,26A 
CD8F95CA4394CDBD9SCD9R9520, 7CE 
G6CDD19SCD2290CDFC8FCDCA9S, 830 
3E0Z2CDFC9SCSCCEE , 4BR 
CD34953ESQCD4195280BCD3495, 590 
300BEDSS8ASA18053ESQCD6F9S, ARE 
21843ACD9R9528013423%4C9, 459 
AFEDSB863A1600215100EDS2ED ,56E 
SB883A1911500001E0C6CDC194,560 
CODAQVAQUA,C 
AF32803ACD1F9SCA4394CDBD95, 6DC 
CDA795280FCD7490CDCA95SA8O , 6F7 
ZACDFC9SC3CCBE3E0 1 :280%ACD , 6AD 
959520E7CDDF9SCDC79018DF ,78D 
3E01CD5095CDA795218634200A,505 
3650CD059528022R257R25C9 , 440 
TABSSAFEQICA4S9A4CDED9SSE OU? ,5F8 
3280%ACD95952006CDDF9SCDC7 , 6DE 
9QCDR790CDCA9SFASQEACDFC9S , 822 
3CC8E ,21D 
3ES0CD509521853A475CD9595C8 , 614 
2B35C9,129 
2A863A2600114F0019ER2A883A , 560 
AFED521150000152C0CDC194C9,64R 
DAPODADODPAAPAAPAAPE , @ 
CDA19S5CA4794CD3:495CA439424, 705 
B8FACDED9S5A8630472:042288 ,4F3 
SACD34957828004FES020F 13D2E,53R 
32803A22883AC3798F ,5A1 
CD349SCA4394EDSR8A3A21987A , 6%6 
ZE0101E00609FSCDED9SFERU128,59A 
OSF1C61618F2ED42F1CD559111,6C0 
E006015QCACDCI94CDCAFS3EO , 684 
CDFCOSC3CCSE , 47B 
ESFSER2A8AYAEDS2015000CD7C,68C 
9147F180320530783CYC:2845A,514 
2C7D328003A2AB8ASA22803AE 109,517 
AFED42380%3C18F9ED4A2RC900,591 
22220, 0 
SAB73AFE01280A3E0132872A21,37F 
B9911807AF:2873A21BC91ES21,57F 
190ECD7SBRE106037ECDSARR?3,591 


10F9C3CC8E494E53202020,470 
CDIF9SCA4Z9A4CDS495%E01CC7E, 641 
95215F9036C9ESCD4190E136C3,701 
2A883A36FFCDBD9SCDCASSCECC, 7FB 
8E00,8E 
CDA795CA4:94CDBD9SSAB6SASD , 700 
FDFEWQCA419047CD749010FBC3,6BC 
4190,D1 
CD1F95CA4394218947A26022336, 492 
21237:60171983072288:4117841,2FC 
CD8A94AFCDFC9S53EQ2CDFC9SXE , 7D4 
20CDSABBCDCA9ISCECCEE0O , 64B 
FS3A873AFE012004F1C34A92F 1,694 
24883477C3798F,32E 
3281FACD2995CA4394EB3EFFBE ,6FF 
FAB1SACAA4Z92CDCRI2FEU:2019,5F8 
CD61953E01C46F951B3E01CD5S, 546 
94%A813A7712CD8A94C3798FFE , 6C7 
D1268ERSES0B820E7ESD513ERED , 706 
SHBATASESOCDSS94D1E1SEUILCD ,621 
55941%13064FCDFE923ES0CD6F , 58E 
9SESEDSRSASA2147B8ACDED9SFE , 7C5 
FF2006228ASACD0793E 174817 ,548 
77CD8A94C3798F 0000000000 , 42D 
FABGTA47EDSBBASAESCDEDOSFE , 77F 
QUROQA4E15E0:C97EFEFF2005EB,594 
E13E01C97EFEF22005ERE15%E02, 688 
C9042353ES1B820DA0601 18D6,426 
DS3EFF121310FCD1C9,4DD 
ESC5214880065036FF ,428 
2310FBC1E1C9,399 
CD299SER200R%6FFCDBD9SCDCA, 78C 
9SC3CCBECDS49SCA439421E292,77E 
3618ERCDCEG2ES21E2923%620E 1,714 
FEU22815%E01CD7E9S233E01CD ,48E 
6F942ECD8A94CDCA9SCECCEECD , 82F 
ED9SFEU02845C5233EQ1CD6F94 ,5E4 
2BSEFF12C1SE01B820DFES2A8A, SCA 
SAESERV1500009CDED9SFEOQ 120, 5D% 
Q7D1ESESD1228A%ASES0CD6F 94, 687 
3ES50CD7E9SEDSESASACDFE®ZD1,7A8 
E1CD8A94CDCA9SCSCCOETEU1BS, 800 
28C736FFCDBD9S18EE ,549 


131 
132 
155 
154 
135 
156 
177 
1:76 
139 
140 
141 
14% 
145 
144 
145 
146 
147 
148 
149 
150 
Loi 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
16% 
165 
164 
165 
166 
167 
166 
169 
170 
1:71 
172 
1735 
174 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DOAAVPAAAE , @ 
CD349SCA4394CDA795280D21SF,5F5S 
90%6C9CDE871215F90%6C37088 , 690 
3SAS6F2C31693,2CE 
CDGF9SCA43:94CDA79SCADAGF21,7EF 
SF90%:6C9CDE89 1,474 
215F90T6CZICSDAGF , 435 
CD8F95SCA4394CD3495202ACDA1 , 6EQ 
95281D2A88%A36F2CDRD953A86 , SCD 
34473ES090CD6F9SCD41953E50,5A1 
32863003798F2A883A76F 20379 , 60D 
BF21468F360921867A%E519647,531 
SEF2CSCD4A92C13EFF10F72106,76A 
BFS6CSCICCEE , SAS 
3E07CDSABRBCICCEE 0000000000 , 444 
CAP AAAE ,@ 
470F78ESDSEBEDS223ESC1E1ES ,8E1 
SF160019ESDI1EL1ESEDRBDIE1C9,87A 
47AF78D5ESEBEDS223ESC1E1ES,8EL 
SF1600EDS2ESD1E 1,448 
ESEDBQE1D1C9 ,4FD 
DSESAFEREDS?225ERXAB84SAGFEA, 742 
86:467252DCD1ABCES19300711,462 
EUDGELES19AFO12FC7ED42%009 , 5D3 
C1E1ESCDC194E1D1,65E 
CO2BEREDS2ER18F0,511 
DSES7ECDD194E1D11R7BR?2C8075,64F 
0:18F0, 108 
FEERXO225F16007210000%E0819,330 
SD?20FC7CC658675059CD06R97E , 5ED 
122570060857%0F7CD09E9C9D6 , 629 
ERSF1600210000%E08193D20FC, 339 
1154061950597E12237AC60857,41F 
310F7C900000000 0222 APPARQ , FO 
AFRABBTA1198%AEDS2C9AF2147,59D 
BAEDSRGGTAEDS?2COAFES2A8A%A, 71E 
EDSRGGY%AEDS2E 1C9ESD55F 1600 ,727 
2A883A1922883AD1E 1C9ESD55F , 67D 
1600AF2AB88SAEDS222883AD1E 1,586 
CHAFESCS2A8A3A01478AED42Ci ,6D2 
E1C9ESDSSF 16002A8A5419226A,58C 
ZADI1E1C9ESDSSF 1600AF2A8A3A , 681 
EDS2228A3AD1E1COTAGSSAFEFF , 796 
COSABASAFEN?C9SA84SAFE17C9 , 660 


179 
176 
177 
176 
179 
180 
181 
18% 
183 
184 


186 
187 
188 
189 
190 
1971 
192 
173 
194 
195 
196 
177 
198 
199 
200 
201 
20% 


AT 
PA ARR 


204 
205$ 
206 
207 
208 
209 
210 
211 
Liz 
Ps 
214 
215 
216 
Li. 
218 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


3 DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


+ 


KE 


‘ 


TABOTAFESOCITAB6TAFEU1C9ES , 688 
FSSAB4TAGF3AB6TA67CD7SBEF 1 , 6AE 
E1C9ES2088%A7ECDAD9SCDSABE , 7EA 
E1CSCDADSSCDBABEC906012101,6ERD 
PU11164FSE00CDSORCC926AQ21 , 27D 
Q10011164F3E0OCDS0ECCIAFES , 4ER 
EDS?2E1CO70033E01COAFSEFFC9 , 6EQ 
FEUO?814F5211904CD7SBBRTA6S5,529 
TAGF2600CD2496F1FE01C02119,540 
BACD7SBRTAB6TA6GF2600CD7496 ,51D 
CODF2D96%E20CDSARBC979EEFC, 7D7 
DPAANABAPAAPAAAPADAE , @ 
CDY49SCAAC96DS2ABATAAFEDS2 , 753 
23E51197SA19228ASAC1E31198,5%6 
SAEDBQCD8096E1CD709621983A,761 
117841CD80943E01CDFC9SCDCA , 6E9 
95C9,15E 
ESSGFF2SSEBARC20F6%E48RD20 , 6%C 
FSE1C9ES21843A56022:560123,516 
360121983A22803AE1C9 ,3RG 
CDY495C8ER228A34CD7096EE01 ,6EE 
EU0619EBCDB8A94CDCA95C92198, 783 
TA228ATACD8096%EQ 1 , 542 
CDFCOSCS948E ,443 
TAB4TA47TAB6ÉTA2ABBTATD260S , F8D 
2RISFATEN2BG20042202%A,337 
COOSSES118EC, 261 
SAB4SAFSSAB63AFSSEU132863A, SQD 
SED23284Z%A2A823AE5 1 1E00619 ,40E 
ERE1CD8A94F 13280634 ,594 
F15284%ACDCA95C9 , 4D6 
21983ACD7096C9CD8096035E96 , 729 


SORTIE ECRAN *%#%% 


AD=58750 
FOR i=i TO 66 


READ 


A$,E$: V=Q 


FOR J=i TO LEN(A#)-1 STEP 2 
X=VAL CM&U4MIDE CAF ,9J,2)):VEV+Xx 


POKE 
NEXT 


AD, X: AD=AD+1 
J:LOCATE 1,3:PRINT 221+1 


IF VE VAL CM&U+R#) THEN PFRINT'"'ERREUR 


EN 
217 
220 
221 
222 
223 
22 
223 

26 
227 


LIGNE" ;221+I: PRINT CHR$ (7) : END 


NEXT 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


i 


CDIRBESSFERC9,359F 
CD8497544197475A4297E82006,552 
CDA897C5:D997CSCDE197CI1FE01,909 
CSFEU4C818E7,391 
215998360921D99756C09218498,SDE 
AF7727772377215359477237725,47C 
77216094772577277709215998,518 
36F521D997356CD2184987T6CD23,422 
SOSAZSSERRZ1STIATECDETTESA, 448 
2556BR216097AS6CD2353565A23756,45E 
BHC90000002000,184 
CD1BRBTOFBFEBRCEZ ASESAFEUQ,71F 
280947CD4A9821E6973618CD3D,51D 
98CD2F982A4597ESCDD2982247,06E7 
97E1FE0620063E01324D97C9FE,5SBE 
DICSFEU22806CDDF99FE04C806 , 6QC 
D1CDA4A78CD7C78CDADYS2A4797 , 6CB 
22459718AD000000,1C3 


ES TABC3A673049976FCD7SBBE 1 , 6B35 
C9SA8CTSA47EIABDE A9O3C324497, 4FQ 


CYESFSCSCDS998CD7298C110F6,8C4 
F1E1C9F53449973CFE18200BES , 70C 
CSDSCDD19SD1C1E135E17324997,7A7 
F1C9,1BA 

21449735C03A49976F2 2602CD75,4E4 
BEQGA4ESEZDCDSABERIQFRCDS5998,625 
JA9OSASE449721E697356282142,470 
9734C9FSSABF3AFEU22802F 1C9 , 670 
D6QDICD4AYSF1C97A4597FE00C8,64A 
475A4097FE012805CD44981803,44E 
CDSF9BAFS24597C90000000000,42E 
0000000000, 
2100003A4A97S7CDD099FEFF28, SCE 
DAAFES200SSED1C9SE04C9SE20,405 
BEZD0S2718E73EFFRE2003:2518,45C 
DFSEF1BEZ2005CD599918D53EF2,6AD 
BEZ200R235AFRS20055E02C93E03,3EQ 
CYESCSDSCD9299FE012005D1C1,7F6 
E1180CAFRAZSOSF1F1F118ADF1,724 
FIF1AFRS2805SE05C95E06C9,58D 


262 
AT 
an C9 et 


264 
265 


266 


267 DATA 


268 
269 
270 
271 
272 
275 
274 
275 
276 
277 


17 
260 
261 
202 
265 
264 
285 
286 
287 
2688 
269 
290 
ET 
272 
293 
294 
295 
296 
FAT A à 
298 


299 
300 
sQ1 
<02 
S03 


304 


LLL. 


ESDSCSFS23SESOBE2045232357E,SEC 
D65006094F8110FD472357ED6350,4E0 
8OD4F2H2R7EFES12825FES22811,488 
SAGCSA47047990FE0F581D7932,461 
8DFA181741SA8D3SASCYOFENFES, 449 
QD79528C5418075445978152435,5A7 
97F1CI1D1E123272752323C9,573 
24151814250C157EFEFF2818FE,442 
202814FEF12910FEF22807AFRA, 60 
20E8TE01CHAFEHAZOQ12TAFC9ES, 61A 
344497916F26004806202DCD7C,3ES 
913524R977D324C97E1C9DSEDSR,6FE 
GATACDED9SD1C90000000000,4AD 
FS78FEQ1200SF1180EFI1FE0S20,SEA 
Q9FSCDES99CDOESAF1C9F57980,856 
SDS244975E01524B97AF524C97,467 
CDOBYAFICYSA4AY7AT77EFEFF 20,729 
QS2S18F6FE2020032S18FIFEF 1,592 
2O0SCDESFA1SESCD2DYACSISEZ, 64À 
FEFS2002SEZ20CDSAREROSCSZS7E , 501 
FEF12808FEFF2804FE2020E75A,6A7 
4R9757SE20CDSABROS1S520F9SA,4E6 
4CY97FEDQESDASDS:4C97SEZQCD,490 
JABEHQOSSEOQLSCCIESDSCSSA4097,SEE 
FEU12007237EFES1CCDF9BC1D1,6CE 


E125252523523C9,259 


SORTIE IMPRIMANTE *%+% 


AD=59570 
FOR Izi TO 45 


READ 


A$,B#:V=Q 


FOR Jxi TO LEN(A#)-1 STEF 2 
X=VAL CMUUAMIDE(AE,J,2)):VEV+X 


FOKE 
NEXT 
IF V« 


S#VAL (MRUHREH) THEN PRINT'ERREUR 


AD, X: AD=AD+1 
J!LOCATE L',S: PRINT 302+I1 


LIGNE!" 5; 502+I: PRINT CHR# (7) : END 


NEXT 


I 


, SAVE 'ASSEMELE" ,R,36500,3575 


+ 


DATA CDB29ATA4197475A4297282006,56S 
DATA CDCS9YACSDASACSCDEUSACIFEU1,92F 


30S 
306 
<07 
708 
509 
310 
311 


312 


SiS 
314 
S15 
316 
S17 
316 
319 


_r 
32 


x | 
où du 
322 
523 
ra 
DCE 
325 
326 
nr, 
0) dé 
et den 
52 
3350 
Tr 
st met 
33% 
Leduc: d 
so soit sodt 
334 
SSS 
356 
37 
3358 
339 
340 
341 
342 
"AT 
+ 


744 
345 
346 
347 


CSFEDACSISE7,591 
SEC921DA9477218A9R7721689R,5F4 
7721309R77C921DA9AS6CD218A,5E6 
DESGES21609RF6ES,3FS 
21S09R56E5C9, 2D0 
CDILRRRFESECOSASESAFEN22809,4625 
47CDSFIREIES9ASE6I8CDED9ECD , 64R 
“QOYH2A4S97ESCDD298224797E1,6CE 
FEUG2006SE01324D97C9FE01C8,50F 
FEDZ2806CDDF99FEDACSESD6Q 1, 629 
CDSF9RCD749ECDADOSE 1CDEE9R,8CC 
2A479722459718AA,2C8 
ES7852899CO06G1ECDC49RE1C900,6GAE 
QDQDQESF SCSCDAESRCDESFEC110,6F6 
F6F1E1C921449755CO0SA90SATE,6R8 
449721F59437:628214297343E0C,451 
CDSA9EC9,2RR 
ESFSCSO601CDCA49RCIFIELC9FS,92T 
SABFISAFEU22802%F 1C90601CD5F ,4FA 
9BF1C90000000000,255 
ESCSFEF45809D6F247CDC49RC1,8D9 
E1C9060DFE4028 P404FESR280F,4CE 
QAFESD280A04FE7R280504FE7D,4RA 
2006CDC49RCI1E1C9CD2ERDESFE, 748 
CDSIRDCIE1C9,426 
210E9CSEFF2SREZ0FCO0520F925,546 
7EFEFFCSCD2ERDS8FBCDS1RD18,801 
F1237ED61EFE1EDOFE12D847CD,76E 
C49RC9EDSR4797CDED9SFEFFCO, 95A 
7EFEF1289032518F2CD689A18ED,699 
200000000000 002002G00 ,Q 
FFOAQDFFéFOSSEFFé1085EFF69 ,618 
Q87EFF7SO8SEFFAQFFSCFF7CFF,774 
7EFF7DFF6SOD8SEFFéASO8SEFFIR,6A9 
J200401RS2OIFF1RS200SR1R5S2,S554 
QD1FF1H5200SD1RS201FF1R5200,%A4 
7HIRS201FF1RS2007D1RS2Q01FF,43F 
1H78Q01FF1R7800FF1RS4FFIRSS, 4C3 
FFIB4SFFIB46FFIR2DQ01FFIB2D,54E 
QOFF1R4DFFIRSQFF1RS7Q01FFIR, SSD 
9700FF1RGSCOOFF ,2DC 


548 
549 
350 
351 


den) 
set tee) dites 


55 
354 
339 
5906 
357 
350 
539 
360 

EN 
Soi 
F6R 
365 
364 
365 
366 
567 
568 
569 
370 
S71 
572 
375 


374 


LIGNES SS35 A 574, UNIQUEMENT FOUR 
" FOSSESSEURS DE 464 SANS LECTEUR 
" DE DISQUETTE, DE 664 ET 4128 
AD=42620 
FOR I=1 TO 10 
READ A ,H#:V=0Q 


FOR Jæl TO LEN(Aa$)-1 STEF 2 
X=VAL C'UUAMIDÉ CAE, J,2) ) 1 VæV+Xx 


FOKE 
NEXT 


AD,X:AD=AD+1 
J:LOCATE 1,3:PRINT 364+I 


IF Vé VAL C'SU+RE) THEN FRINT'ERREUR 
LIGNE": %64+I: PRINT CHR£ (7) : END 
NEXT I 

SAVE "CARACTER" ,H,42620,128 


+ 


+ 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


QSOCOEFFFFOEQCOSFFCSY90QFGF, 5SDER 
QYCIFFOLQESEFESENDE 02000000 ,3:FS5 
QDZLACAOONODQ 124546666066 18,2SE 
20:04878007CCC74006C005:818,3:76 
18185C00182466666466405E 0060 ,2DE 
107800 7CCC76000000IC6GGQSE, 392 
QDB16F006666666GGSENODEDEEC, 278 
GB67EGQICOQEQIDICSS7E6OECAQ, SAC 
18245C667E60:C001824001818,264 
1835C000000000000180000,8C 


LE PROGRAMME DE GESTION BASIC 


Ce programme prépare la machine avant le chargement du 
fichier  ASSEMBLE" (fixation de la mémoire, redéfinition de 
certains caractères et affichage de l'écran). La main est 
ensuite passée au programme assembleur qui s'occupe de 
touteslessaisies,lesinsertions,etles commandesnécessitant 
une grande vitesse d'exécution. Toutes les autres sont gérées 
directement par le BASIC, avec quelques appels ponctuels de 
routines assembleur. 

ll doit être tapé avec beaucoup de soin, tout particulièrement 
lorsque des instructions POKE ou CALL sont concernées (en 
cas denonfonctionnement, vérifiez attentivement votrelisting 
avant d’accuser votre machine... ou pire, l’auteur). 

Les possesseurs de 664, 6128 ou 464 sans lecteur de dis- 
quette ne devront pas oublier d'effectuer les modifications 
décrites dans le chapitre consacré à ce sujet. 

Le programme ne présente guère de particularité, et devrait 
facilement être compris par tous. Signalons quand même le 
rôle de la ligne 10, quiremédie à un défaut du BASIC de l’Ams- 
trad. Il est en effet impossible d'utiliser la commande SYMBOL 
AFTER après que la mémoire a été fixée par MEMORY (l'ordi- 
nateur sortant alorsun‘improper argument ”.… !). Cela peut par- 
fois être fort gênant si l’on est amené à lancer plusieurs fois le 
programme. La solution consiste donc à utiliser un sémaphore 
(en l'occurrence l'emplacement mémoire 14901) qui sera mis 
à 1 lors du premier lancement et qui permettra par la suite 
d'éviter les instructions SYMBOL. 
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10 IF FEEK(149@G1)=1 THEN 190 
20 FOKHE 14901,1:SYMEBOL AFTER 276 

30 SYMEOL 240,8,17,14,255,255,14,12,8 

40 SYMBOL 241,255,195,153,159,159,153%,19 
5,255 

5Q SYMEOL 242,2,14,62,254,62,14,2,0 

6Q SYMBOL 245,0,0,0,50,76,0,0,0 

70 SYMEOL 244,74,%6,90,102,102,102,24 

80 SYMEOL 245,48,72,120,12,124,204,118 
90 SYMEOL 246,108,0,56,24,274,24,60 

100 SYMEOL 247,74,3%6,102,102,107,102,62 
110 SYMEOL 248,96,16,120,12,124,204,118 
120 SYMEOL 249,0,0,60,102,96,62,8,24 

150 SYMEOL 250,48,8,107,102,102,102,462 
140 SYMBOL 251,6,8,60,102,126,96,60 

150 SYMEOL 252,96,16,60,107,126,96,60 
169 SYMBOL 255,24,36,60,102,126,96,60 
170 SYMEOL 254,24,%6,0,24,24,74,60@ 

180 SYMEOL 255,0,0,0,0,0,74,0,0 

190 MEMORY 14900 

200 MODE 2:INE Q,1%:INH 1,0:BORDER © 

210 PRINT STRINGS (80,CHR# (143) ) 

220 FLOT G,26:DRAW 639,26: LOCATE 2,25:PR 
INT'Læl  Cæi" 

250 FLOT 100,0:DRAW 100,26:FPLOT 132,0:DR 
AW 132,76 

240 LOAD'ASSEMBLE" , 36500 

250 ‘ 

26Q ‘ 

270 ‘ 

280 ‘ 

290 ‘ *x FORMAT D'ORIGINE #%# 

:00 ‘ 

310 RESTORE 320:FOR 1=14976 TO 14992:REA 
D xX:POHE I,x2NEXT 

320 DATA 0,0,0,0,2,1,1,0,%498,%3a,%98,8%a 
2170114067 

350 

540 ‘ 

350 CALL 36500 

560 CALL 36556 

370 ‘ 

380 ‘ xx MODE MENU *% 

#9Q ‘ 


40 LOCATE 20,25:FRINT'SORTIES/ENTREES (1 
) FORMAT (2) SUFFRESSIONS (3) UTILITAIRES ( 

4) ur 

410 REPS=INKEV#:IF REF#æ"" THEN 410 

420 GOSUR 194G:REF&VAL (REF#H):IF REF<1 OR 
REF:4 THEN 760 

420 ON REF GOTO 1050,640,470,1740 

440 

45Q ‘ xx SUFFRESSIONS x# 

460 

47@ LOCATE 20,25:FRINT'SUFFRIMER: JUSQU’ 
AU CURSEUR (1) À FARTIR DU CURSEUR(2) TOU 
Fa) 

480 REP#=INKEV#: IF REF#="" THEN 4680 

490 GOSUR 1940: REF&VAL (REF#):1F REF<1 OR 
REF>S THEN 360 

500 LOCATE 54,25: PRINT'CONFIRMATION ? (0 
/N) "3 . 

510 R#=UFPERS CINEEY#): IF R="" THEN 510 
520 IF R£æ'N" THEN GOSUE 1940:GOT0 %60 
S5Q IF R#<>"0" THEN 500 

540 GOSUR 1940:0N REF GOTO 550,590 ,600 
550 IF FEEK(14982)=1 THEN 580 

560 LOCATE 25,25: PRINT CHR (7) ; "CURSEUR 
NON FOSITIONNE EN COLONNE 1 / TAFEZ UNE 
TOUCHE"; 

570 CALL &EEQ6:GOSUE 1940:GOT0 360@ 

580 CALL 38458:GOTO 360 

590 CALL 38548: GOTO 360 

60Q CALL 38572:LOCATE 6,25:PRINT" "3: GOT 
0 360 


610 ‘ 

620 ‘ *x FORMAT *+% 

6850 ‘ 

640 LOCATE 28,25$:FRINT'CREATION FORMAT ( 
1) CHARGEMENT FORMAT (2) "3 


650 REPF#FSINEEYS: IF REP#æ"" THEN 650 

660 GOSUEH 1940: WINDOWKO,1,80,2,23:CLS:CA 
LL 368589 

67Q REFEVAL(REF#):1IF REF<1 OK REF:® THEN 
360 

680 ON REF GOTO 720,980 

690 ‘ 

700 ‘ *x Creation format 


710 

720 LOCATE 20,68:INFUT'"'- MARGE GAUCHE (1 

À ES la erss suuxs "sMG 

750 IF MG<I OR MG+65 THEN LOCATE 20,8:PKR 
INT STRING#(S0," ")3:CHRE (7): : GOTO 720 

740 LOCATE 20,10: INFUT'— MARGE DROITE (1 

é). À O0 T ES sers es à etes "MD 

790 IF MD£lé OK MD*80 THEN LOCATE 20,1@: 

PRINT STRING#(50," ")s5sCHR$ (7) 3; : GOTO 740 

76Q LOCATE 20, 12: INPUT" MARGE HAUTE (@ 

A 10), ssssssssssss "5 MH 

110: IF MH<O OR MH>1Q THEN LOCATE 20,12:F 

RINT STRINGE (50, "Ds CHAKEÆ (C7) 3: : GOTO 760 

78Q LOCATE 20,14: INFUT'"'-— INTERLIGNE (1 O0 

ELU ee ns ae CR NU s'reTTL 

790 IF ITL <> s1 AND ITL #% 2 THEN LOCATE 

20,14: PRINT STRINGS(50," ")sCHRK#S (7) 3 : GOT 

O0 7680 

800 LOCATE 20,16: INFUT'- NOMRRE DE LIGNE 

S FAR FAGE (15 À 62):"3LF 

810 IF LF «15 OK LP+62 THEN LOCATE 20,16 
PRINT STKINGEÆ(S50," ")s5CHR# (7); : GOTO 800 

820 IF MD-MG+1%=15 THEN 8460 

850 CLS: LOCATE 28,10Q:FRINT'##x MARGES IL 

LEGALES 44% 103 CHEGE (7) : LOCATE 14,12 

840 FKRINT'!''#xx NOMBRE DE CARACTERES PAR L 
IGNE INFERIEUR À 15 +xxx!"sCHRS& (7) 3: 

850 LOCATE 352,14: FRINT'TAFEZ UNE TOUCHE" 
:CALL SREHOG: CLS: GOTO 720 

860 FOKE 14988 ,MG:PFOKE 14989,MD:FOKE 149 

90,MH:PORE 14991,ITL:FOKE 14992,LF 

87Q CLS:LOCATE 25,10@:PRINT'SAUVEGARDE DU 
FORMAT (O/N) 7" 

860 REF#F=INÉEVS:IF REF$="" THEN 680 

89Q IF UFFER#(REF#)="0" THEN 910 

900 IF UFFERS(REF#)= "IN" THEN 940 ELSE 88 

Q 

910 CLS: LOCATE 20,10:INFUT'NOM DU FORMAT 
(MAXIMUM 6 <ELIRESATRe 

Q92Q IF FHeU" OR F£z" "THEN FRINT CHR£# (7 

):G0T0 910 

950 FÆÉSLEFT#(F#,8): SAVE F#,B,149088,5 

940 CLS: WINDOW#O,1,80,1,25:CALL 58619:60 

TO 560 


950 ‘ 

960 ‘xx Chargement format 

970 ‘ 

980 LOCATE 20,10: INFUT'NOM DU) FORMAT (MA 

XIMUM 8 LETTRES)":;F# 

99Q IF F#="" OR F#e!" " THEN PRINT CHR& (7 
):G0T0 980 

1000 FHeLEFT#(F#,68):LOAD F#,14988 

1010 GOTO 940 

1020 ‘ 

1050 ‘ *x*x SORTIES/ENTREES %+* 

1040 ‘ 

1050 LOCATE 20,25:FRINT'SORTIE ECRAN (1) 
IMPRIMANTE (2) SAUVEGARDE (5) CHARGEMEN 

T (4)": 

1060 REFF=INÉEYS#:IF REP#="" THEN 1060 

1070 GOSUR 1940:REP=VAL(REPF#):IF REF<1 0 

KR REF:4 THEN 560 

1080 ON REF GOTO 1120,1280,1530,1450 


1100 ‘*x*x Sortie ecran 

1110 ‘ 

1120 GOSUR 1450:GOSUR 1940 

1130 LOCATE 24,25: PRINT'AFFICHAGE À FARKT 
IR FAGE'"3:F3:"/ CONFIRMATION ? (O/N)" 

1140 R$=UPPERS CINÉEY#)2:1F R#$='"" THEN 114 
Q 

1150 IF R&#='"N!" THEN GOSUB 1940:G0T0 35640 
1160 IF K#<>"O" THEN 1140 

1170 PFOKE 38720,0:FOKE 568886,%28 

1169 WINDOW#K#O,1,80,2,23:CLS: WINDOW#K#O, 1,68 
@,1,25:CALL 58589:CALL 358756:FOKE 14988, 
MG:POKE 14989,MD 

1190 IF FEEK(38753)<>1 THEN 1220 

1200 GOSUH 1940:LOCATE 28,25:PFRINT CHK£#( 
7)3:FRINT'MOT TROF LONG / FOUR SUITE: FE 
TITE TOUCHE <ENTER?o'"'3 

210 IF INKEY(6)=Q0 THEN 1240 ELSE 1210 
1220 GOSUR 1940:LOCATE 30,25: PRINT'!'RETOU 
R ECRAN DE TRAVAIL: FETITE TOUCHE <ENTER 


CNT 
ON 


1230 IF INKEY (6)=0 THEN 1240 ELSE 1230 
1240 GOSUR 1940:CALL 58750: CALL 58619:60 


TO 560 

1250 ‘ 

1260 ‘ +**x Sortie imprimante 

1270 

1280 GOSUE 1450: GOSUR 1940 

1290 LOCATÉE £#4,25:PRINT'IMPRESSION A FAR 
TIK FAGE'":F3"/ CONFIRMATION ? (O/N)" 
1500 R#=UPPERE CINKEYS#):1IF K#=!""! THEN 150 
1510 IF R#=!"N'" THEN GOSUR 1940:G0T0 560 
1520 IF K#<3#"O0" THEN 1500 

SSQ POKE 3538720,1:PFOKE 398655,8428 

1540 POKHE 39476,8%8A:POKE 59477,89B: POKE 
39501,%8A:FOFE S9SO0E8,89R:POKRE 39521,88A: 
POKE 39522,849B 

1550 FRINTHS,CHRE (27) s à" 3: FRINTH#S,CHRE# ( 
27)3"C':CHRS (75) : 

1560 CALL 59570: FRINTKS: PRINT CHRS& (7) 


1580 LOCATE 268,25: FRINT CHR# (7) 3: FRINT'"'M 

OT TKOF LONG / FOUR SUITE: PETITE TOUCHE 
SENTER%"!"'3 

1590 IF INKHEY(6)=0Q THEN 1410 ELSE 1590 
1400 LOCATE 20,25: PRINT CHK&# (7) 3 : PRINTMI 

MFRESSION TERMINEE — TAFEZ FETITE TOUCH 

E <ENTER:'"::GO0T0 13590 

1410 GOSUB 1940:CALL 38750:FOKHE 59476,85 

A:PORE 39477,8BER:FOKHE 39501 ,8%SA:PFOKE 395 

DE ,UARR:FOKRE 39521,8SA:POKE 39522,8BH:FOK 

E 14988 ,mg:F 

OKE 14989 ,md:GOTO 560 

1420 ‘ 

1450 ‘ ++ sp commun ecran/imprimante 
1440 ‘ 

1450 GOSUB 194@:LOCATE 51,25: INFUT'A FAR 

TIR DE QUELLE FAGE (MINIMUM: 1)"3F 
1460 IF Fil OK F:255 THEN PRINT CHR (7): 
:GOTO 1450 

1470 GOSUR 194G:FOKE 38721,F:FOKE 38722, 
1:POKE 59725,0:PFOKE 58724 ,PEEK (14992) : F0 

KE 58725,%98:POKE 50726,8SA:FOKRE 58729,2 
:POKE 38755, 

Q 

1480 mgzFEEKR (14988) : md=FÆEEK (14989) : RETUR 

N 


1490 
1500 
ie ‘## Sauvegarde 
15 + 
1530 GOSUR 1940:CALL 58589:WINDOWKO, 1,80 


52,23:CLS:IF Ef="" THEN 1560 
1540 LOCATE 20,9:FRINT'*##* DERNIER NOM E 
N MEMOIRE: "5 Bis" xxx 


15350 LOCATE 15,14: FRINT''#kx SI LE NOM ES 
T IDENTIQUE, TAFEZ <ENTER> *x%x%" 

1560 LOCATE 15,12:INFUT'NOM DU TEXTE A S 
AUVEGARDER (8 LETTRES MAXIMUM) "sA# 


1570 IF A$=" " THEN PRINT CHR# (7) ; : GOTO 

1560 

1580 IF Af="" AND Bf="" THEN PRINT CHR£( 
7)::G0T0 1560 

1590 IF At="" THEN A$=B#$ ELSE B#=LEFTS(A 
&,8) 


1600 FIN=256XPEEE (14987) +FEEK (14986) : LON 
G=FIN-14985:SAVE A$,H,14986,LONG 

1610 WINDOW#K#OQ,1,80,1,25:CALL 38619:G0OT0 
360 

1620 ‘ 

1650 ‘xx Chargement 

1640 ‘ 

1650 GOSUE 1940:CALL 58589: WINDOWKO, 1,80 
25288 0L5S 

1660 LOCATE 15,10:INFUT'NOM DU TEXTE (8 
LETTRES MAXIMUM) "LEE 

1670 IF B£='"" OK B£f=" " THEN CLS:FRINT C 
HR# (7): : GOTO 16609 

1680 IF LEN(B#) >9 THEN CLS:PRINT CHR#(7) 
::GOTO0 1660 

1690 RF=LEFTÉH(R#S,8): CALL 358662: LOAD B$,1 
4986 

1700 WINDOW#KQ,1,80,1,25:CALL S8619:G0OTO 
3560 

1710 

1720 ‘xx UTILITAIRES ** 

1750 ‘ 

174Q LOCATE 26,25:PRINT'"'VOIR CONTENU DIS 
OUETTE (1) RETOURNER AU BASIC (2)" 
1750 REF#=INKEY#:IF REF#$="" THEN 1750 
1760 KEF=VAL(REF#):IF REP<1 OR KEF>:2 THE 


N GOSUB 194Q:G0OTQ 560 

177Q ON REF GOTO 1810,1870 

1760 ‘ 

1790 ‘ **x Contenu disquette 

1800 ‘ 

1810 WINDOW#K#O,1,80,2,23:CLS:CALL 38589:cC 
AT 

1820 WINDOW#K#OG,1,80,1,25:GOSUR 1940:LOCAT 
E 30,25: FRINT'RETOUR ECRAN DE TRAVAIL: T 
AFEZ UNE TOUCHE’: 

1850 CALL SEERDé: CALL 58619: GOSUR 1940:6G0 
TO 560 

1840 

1950 ‘ +*+% Retour basic 

1860 

1870 GOSUR 1940:LOCATE 354,25:FRINT'OONFI 
RMATION ? (O/N)'"3 

1880 RÉ=UFPERS(INÉEYS#):IF R$=!"" THEN 188 
[a] 

1890 IF RF='"N" THEN GOSUR 1940:GO0OT0 560 

1900 IF K#<>"O" THEN 16880 

1910 CALL Q 

1920 ‘ 

1950 ‘ 

1940 LOCATE 20,2S:FRINT STRING (61,CHRE ( 
32) ) 3; : RETURN 

1950 ‘ 

1960 ‘ 

197Q ‘ xxx RATTRAFAGE DU TEXTE EN CAS D’ 
ERREUR *%% 

1980 ‘ 

1990 INFUT'NOM DU) TEXTE À SAUVEGARDER (8 
LETTRES MAXIMUM) "5 A 

2000 FIN=256XxFEEK (14987) +PEEK (14986) : LON 
G=FIN-14985:SAVE A#,B,14986,LONG 


ADAPTATION AUX 664, 6128 ET 464 
SANS LECTEUR DE DISQUETTE 


Ce programme, qui a été mis au point sur un 464 équipé d’un 
lecteur de disquette, est adaptable sans aucune difficulté sur 
les autres CPC. 


HE MODIFICATION COMMUNE AUX TROIS MACHINES 


Cette modification commune concerne naturellement l'affi- 
chage des caractères redéfinis, ainsi qu'il a été expliqué dans 
les commentaires du chapitre “ Programme assembleur” (s'y 
reporter éventuellement). 

Les possesseurs de l’une de ces machines devront tout 
d’abord entrer l'intégralité du programme de chargement 
BASIC, y compris, donc, les lignes 353 à 374 :le fichier créé par 
ceslignes représente une copie exacte de la table de caractè- 
res redéfinis telle qu'elle est mise en place par l'instruction 
SYMBOL AFTER. 

Ce fichier devra naturellement être chargé à partir de 
l'adresse 42620, dès le début du programme BASIC de gestion 
du traitement de texte ; cela se fait très facilement en ajoutant 
la ligne suivante : 


260 LOAD “ CARACTER ”, 42620 


H MODIFICATION SPÉCIFIQUE AUX 664 ET 6128 


Sur ces deux machines, la ROM BASIC est presque identique 
à celle du 464, mais les adresses sont quelque peu décalées.Il 
sera doncnécessaire de modifier l'adresse dela routine BASIC 
utilisée dans le sous-programme 36 quiréalise l'affichage dela 
ligne et/ou de la colonne (voir le “Programme assembleur ” et 
les commentaires à ce sujet). 

Cette adresse étant rangée dans les emplacements 
mémoire 38445 (&962D) et 38446 (&962E) du bloc assem- 
bleur (voir ligne 920 du listing), il est tout à fait possible de la 
modifier après le chargement dela ligne 240 du programme de 
gestion BASIC, en ajoutant une ligne 250. 
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Pour le 664 : 
250 POKE 38445,73 : POKE 38446,239 
Pour le 6128: 


250 POKE 38445,68 : POKE 38446,239 


M MODIFICATIONS SPÉCIFIQUES AU 464 
SANS LECTEUR DE DISQUETTE 


Il est bien évident qu'un lecteur de cassette est infiniment 
moins agréable et moins souple d'utilisation qu'un lecteur de 
disquette, pour ce qui concerne tant la rapidité que la sécurité, 
surtout avec des programmes de ce genre où les sauvegardes 
et chargements sont en principe fréquents (c'est d’ailleurs 
probablement la raison pour laquelle on ne trouve pas sur le 
marché — à l'heure où ceslignes sont écrites, en tout cas — de 
traitement de texte sur cassette pour Amstrad. 

Que les adeptes des cassettes se rassurent, pourtant, puis- 
queles durées de chargement restent tout à fait raisonnables : 
environ une minute et demie pour le programme de gestion 
BASIC, 50 secondes pour le fichier ‘ASSEMBLE’, et une 
dizaine de secondes pour le fichier  CARACTER". Le temps 
nécessaire pour être opérationnel est doncloin d'être rédhibi- 
toire. 

D'autre part, et à titre indicatif, il faudra compter entre 4 et 
5 minutes pour sauvegarder ou charger un texte occupant 
toute la RAM bibliothèque (soit 20 400 caractères y compris 
les espaces inutiles, ce qui représente déjà un texte consé- 
quent). Assurez-vous qu'il reste suffisamment de bande avant 
toute sauvegarde, et en cas de doute n'hésitez pas à changer 
de cassette. 

Rappelons également qu'il est toujours possible de doubler 
les vitesses d'écriture (et donc de lecture) sur cassette grâce à 
l'instruction SPEED WRITE (reportez-vous éventuellement au 
guide de l'utilisateur). 

Reste naturellement le problème de la sécurité : rares sont 
ceux qui n'ont pas un jour ou l’autre appuyé sur REC+PLAY au 
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lieu de PLAY, ou à quiil n’est pas arrivé d'enregistrer un fichier 
sur un autre. Que vous dire, sinon d'éviter le désordre dans vos 
cassettes (c'est difficile, c'est vrai...) de bien noter vos comp- 
teurs et d’être extrêmement attentif lors de toute opération 
impliquant la cassette. Si malgré tous ces bons conseils, les 
choses tournaient mal, rappelez-vous qu'il est toujours pos- 
sible de sauver un texte en utilisant la procédure de secours 
décrite à l’avant-dernier paragraphe du “Mode d'emploi”. 


En plus de la modification signalée au début du présent cha- 
pitre, il sera nécessaire d'ajouter trois lignes au programme de 
gestion BASIC, et d'en modifier quelques autres. En réalité, le 
programme pourrait fonctionner tel quel, mais quelques affi- 
chages et coups de cloche supplémentaires seront certaine- 
ment les bienvenus pour éviter toute étourderie. 


Lignes à ajouter : 
235 PRINT CHR$(7);:LOCATE 1,3:PRINT “ PREPAREZ CASSETTE 
POUR FICHIER ‘ ASSEMBLE ’ ” 


255 PRINT CHR$(7);:PRINT “ PREPAREZ CASSETTE POUR FICHIER 
‘CARACTER’” 


1595 LOCATE 1,16 


Ilest également souhaitable d'insérer un coup de cloche cha- 
que fois que le lecteur de disquette doit être utilisé, et avant 
l'affichage par le système des messages ‘PRESS PLAY THEN 
ANY KEY ’ et ‘PRESS REC+PLAY THEN ANY KEY ': 


930 F$=LEFT$(F$,8):PRINT CHR$(7);:SAVE F$,B,14988,5 
1000 F$=LEFT$(F$,8):PRINT CHR$(7);:LOAD F$,14988 


1600 FIN=256*PEEK(14987)+PEEK(14986):LONG=FIN—14985:PRINT 
CHR$(7);:SAVE A$,B,14986,LONG 


1690 B$=LEFT$(B$,8):CALL 38662:PRINT CHR$(7);:LOAD B$,14986 


Il faudra enfin remplacer le mot ‘DISQUETTE” par ‘CAS- 
SETTE” dans la ligne 1740. A ce sujet, signalons qu'il est pos- 
sible d'arrêter la lecture de la cassette en procédant comme 
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suit :attendre une pose entre deux blocs de données (ilesttrès 
facile de s’en rendre compte au bruit), tapez une fois la touche 
BREAK, puis une fois la petite touche ENTER. Toute autre pro- 
cédure pourrait entraîner des complications. 

La procédure de première utilisation reste la même (voir 
mode d'emploi), sauf qu’en plus du fichier‘ ASSEMBLE "il sera 
également nécessaire de charger le fichier  CARACTER". 

Pour simplifier la mise en route du traitement de texte, l’ordre 
de rangement sur la cassette sera naturellement : 


1. Le programme BASIC de gestion. 

2. Le fichier binaire  ASSEMBLE. 

8. Le fichier binaire  CARACTER". 

Le programme BASIC une fois chargé, la cassette se retrou- 
vera positionnée au début des fichiers binaires et vous n'aurez 
plus à manipuler quoi que ce soit. 


Il est bien sûr fortement conseillé d'utiliser une autre cas- 
sette pour enregistrer vos textes. 
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Le traitement de texte présente dans cet 
ouvrage, pour l'essentiel en assembleur. est 
destiné à tous les possesseurs de CPC 464 (avec 
ou sans lecteur de disquette). 664 et 6128. Mis au 
point avec une Imprimante DMP 2000, il peut 
facilement être adapté à d'autres imprimantes. 

Il dispose de toutes les commandes importantes 
de gestion de l'écran de travail (insertion, 
suppression de lignes ou de blocs, renvoi du 
curseur en début ou en fin de texte, définition des 
formats, etc.), permet tous les caractères 
accentués du français et, naturellement, la 
justification en sortie écran ou imprimante. 

Des codes de contrôle permettent l'accès aux 
différentes options de l'imprimante (caractères 
gras, italiques, soulignés, NLQ, etc.), ainsi que des 
modifications de format à l'intérieur du texte. 

La RAM bibliothèque a une capacité de 20 400 
caractères, ce qui peut représenter entre 5 et 

15 pages selon le format et la présentation 
choisis (le nombre de colonnes peut varier de 15 
à 80). 

Tous ceux qui s'intéressent à l'assembleur 
pourront facilement étudier le listing 
abondamment commenté et, pourquoi pas, 
rendre le programme encore plus performant en 
y ajoutant des commandes de leur propre cru. 
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